Option Explicit

Public cn As String
Public cnn As New ADODB.Connection
Public comm As New
Public rs As New ADODB.Recordset
Public sqlc As String

Private Sub Form_Load()
     cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\salary\DATA\salary.mdb;Persist Security Info=False"
     sqlc = "select * from 职员"
End Sub

Private Sub Command1_Click()
  cnn.ConnectionString = cn
  cnn.Open
  rs.Open sqlc, cnn, 3, 2
  Set DataGrid1.DataSource = rs
  rs.Close
  cnn.Close
End Sub
请高手指点：
为什么无法显示数据，谢谢
 

不要急着close，关闭了当然无数据
Private Sub Command1_Click()
  '打开  
  cnn.ConnectionString = cn
  cnn.Open
  rs.Open sqlc, cnn, 3, 2
  Set DataGrid1.DataSource = rs
End Sub
Private Sub Command2_Click()
  '关闭
  rs.Close
  cnn.Close
  Set DataGrid1.DataSource =nothing
End Sub



[ 本帖最后由 lowxiong 于 2013-8-6 12:38 编辑 ]

红色删除掉

谢谢，搞定了