J
JT
Dim Recordset As ADODB.Recordset
Set Recordset = New ADODB.Recordset
vDataBase = ActiveWorkbook.Sheets("Macros").Range("E6")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
vDataBase & "';Persist Security Info=False"
Dim r As Integer
r = 5
Do Until Len(Cells(r, 1)) = 0
Sql = "append [JV_Info] set [Customer Number] = '" & Cells(r, 1) & "'
Call Recordset.Open(Sql, ConnectionString, adOpenForwardOnly,
adLockReadOnly, CommandTypeEnum.adCmdText)
r = r + 1
Loop
End Sub
Set Recordset = New ADODB.Recordset
vDataBase = ActiveWorkbook.Sheets("Macros").Range("E6")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
vDataBase & "';Persist Security Info=False"
Dim r As Integer
r = 5
Do Until Len(Cells(r, 1)) = 0
Sql = "append [JV_Info] set [Customer Number] = '" & Cells(r, 1) & "'
Call Recordset.Open(Sql, ConnectionString, adOpenForwardOnly,
adLockReadOnly, CommandTypeEnum.adCmdText)
r = r + 1
Loop
End Sub