vba_findpic02

Sub find_pic2()

Dim con As New Connection
Dim conn As New Connection
Dim connn As New Connection

con.Open "provider=Microsoft.ace.OLEDB.12.0;data source=" & "\\CNGSCAPL-SPF303\Customer_Care\Doc_Import\Share\CN_Import\02SHA\07 Tools\00 Database\NCIMPWSNGB.accdb"
conn.Open "provider=Microsoft.ace.OLEDB.12.0;data source=" & "\\CNGSCAPL-SPF303\Customer_Care\Doc_Import\Share\CN_Import\02SHA\07 Tools\00 Database\NCIMPWSNC.accdb"
connn.Open "provider=Microsoft.ace.OLEDB.12.0;data source=" & "C:\Users\GSC.BFU\Desktop\bOB\Database_Bob.accdb"


Dim sql, sqll As String

sql = "select PIC,EVOY & POD as IMvoyagePort from Vessels"
sqll = "select * from Pre_Discharge_PIC"

Set rs = con.Execute(sql)
Set rs1 = conn.Execute(sql)
Set rs2 = connn.Execute(sqll)


On Error Resume Next

Dim imvoyageport, svport, port

For i = 2 To Cells(Rows.Count, 1).End(xlUp).ROW

imv