Dim rsUser As New ADODB.Recordset Dim Conn As New ADODB.Connection Conn.ConnectionString = "provider=SQLOLEDB.1;Persist Security Info=true;Uid=xxx;Password=xxxx;Initial Catalog=xxxx;Server=xxxx" Conn.Open Dim SqlStr As String SqlStr = "select city_code,city_name from city" rsUser.Open SqlStr, Conn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rsUser 结果很正常。估计是你的MDIForm1.Conn有问题。
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "provider=SQLOLEDB.1;Persist Security Info=true;Uid=xxx;Password=xxxx;Initial Catalog=xxxx;Server=xxxx"
Conn.Open
Dim SqlStr As String
SqlStr = "select city_code,city_name from city"
rsUser.Open SqlStr, Conn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rsUser
结果很正常。估计是你的MDIForm1.Conn有问题。