DataGrid显示数据库中一个表的内容,我到底错在哪里?
为什么显示不出来!
Private Sub Form_Load()
'连接数据库
On Error GoTo ErrorHandle
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
Cn.ConnectionString = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXCsystem "
Cn.Open
If Cn.State = adStateOpen Then _
MsgBox " 数据库连接成功!"
Exit Sub
ErrorHandle:
MsgBox Err.Description
End
'显示数据
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "产品信息表", Cn, adOpenKeyset, adLockOptimistic
Set DataGrid.DataSource = rs
'DataGrid.Refresh
End Sub