Private Sub 按QQ_Click()
qq = Val(InputBox("请输入你要查询的QQ号码：", "按QQ查询"))
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\学生通讯录系统\通讯系统.mdb;Persist Security Info=False"
cn.Open
rs.Open "select * form 通讯表 where QQ='"
If (rs.EOF = False) Then
rs.Fields("QQ") = qq
我用的是datagrid 控件,我想用光标来定位,当我输入要查询的QQ号码后,光标就停在那一行,我怎么做呀?告诉我!谢谢!





End Sub