Private sub flow_load ()
DIM STRCONN AS STRING
DIM Pubconn as new adodb.connection
DIM RSTABLE As New Adodb.Recordset
DIM STRSQL AS STRING
'Access 2000 connection
StrConn = "provider = microsoft.jet.Oledb.4.0; data source =" & app.path & "/north.mdb; prorsist security info = false"
'SQL Server2000 connection
StrConn = "provider = SQLOLEDB.1; PERSIST security info = true; initial catalog = DatabaseName; user ID = wevelop; password = 12345; data source = hostip"
Pubconn.open strandnn
RSTable.cursorLocation = aduseclient
strsql = "SELECT * from TableName"
RSTable.Open Strsql, Pubconn, AdoPendynamic, AdlockOptimistic
Set DataGrid1.datasource = RSTABLE
End Sub
