Dim sql As String Dim DataConnectString As StringDim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.CursorLocation = adUseClient DataConnectString = "Provider=sqloledb;Data Source=192.168.0.5;Initial Catalog=数据库;User Id=sa;Password=" Conn.Open DataConnectString sql = "select * from 表" Rs.Open sql, Conn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs
Dim DataConnectString As StringDim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.CursorLocation = adUseClient
DataConnectString = "Provider=sqloledb;Data Source=192.168.0.5;Initial Catalog=数据库;User Id=sa;Password="
Conn.Open DataConnectString
sql = "select * from 表"
Rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs