Option expedition
Dim adocon as adodb.connection
Private sub flow_load ()
Set adocon = new adoDb.connection
Adocon.connectionstring = "provider = sqloledb.1; password =; persist security info = true; user ID = sa; initial catalog = DRUGDB; DATA SOURCE = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.open
Adocon.execute ("Delete from News")
Adocon.Execute ( "insert into newsort (sort_id, sort_name) SELECT sort_id, sort_name FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0', 'Data Source =" & App.Path & "/carsort1.xls;Extended properties = Excel 5.0 ') ... [CARSORT1 $] ")
Adocon.close
Set adocon = Nothing
End Sub
