求教DataGrid绑定方法

Question

Set DataGrid1.DataSource = rs1 不灵呢 应该怎么写？在线等 解决就马上结具体代码下面
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim cnn As ADODB.ConnectionPrivate Sub CommandSCE1_Click()
Set rs1 = New ADODB.Recordset
Set DataGrid1.DataSource = rs1
rs1.Open "select * from rkd", cnn, adOpenKeyset, adLockOptimisticPrint rs1.Fields!品名
End SubPrivate Sub Form_Load()Set cnn = New ADODB.Connection
 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=nkc.mdb"End Sub

Answer 1

Private Sub CommandSCE1_Click()
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from rkd", cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs1
Print rs1.Fields!品名
End Sub

Answer 2

问题在rs1.CursorLocation = adUseClient
请问这句话什么意思|

Answer 3

问题在于你rs1没有记录就Set DataGrid1.DataSource = rs1了

Answer 4

rs1.Open "select * from rkd", cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs1调换一下顺序，先打开记录集，再绑定。

Answer 5

dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "连接字符串"
rs.open "select * from tablename",cn,1,1