Dim loDataSet As DataSet = New DataSet loDataSet.Tables.Add("Temp") loDataSet.Tables(0).Columns.Add("Claim_No", GetType(System.String)) For lnCounter = 1 To oDataProvider.nCount loRow = oDataProvider.oDataView(lnCounter - 1).Row Dim loRow2 As DataRow = loDataSet.Tables(0).NewRow Select Case oApp.nLanguage Case 1 loRow2("Claim_No") = loRow("Claim_No") End Select loDataSet.Tables(0).Rows.Add(loRow2) NextThe error is at the Dim loRow2 declaration.