小弟弟在这麻烦大家了我拿VB做了个电话查询本
查询出来的结果要在DATAGRID中显示出来 但我现在我的显示不出来，希望大家帮帮忙！！谢谢了 小弟才学的不太会！
请别笑我 连接的是ACCESS 数据库
下面是代码
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\李巧\记事本\记录本.mdb;Persist Security Info=False" '
cn.Open ConnectionString
If Text1.Text = "" Then
MsgBox "请填写电话号码！", vbExclamation, "提示信息"
Exit Sub
End If

rs.Open "select * from 退费记录表 where 电话号码 = '" & Text1.Text & "'", cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount = 0 Then
MsgBox "没有此电话号码！", vbExclamation, "提示信息"
End If
Set DataGrid1.DataSource = rs
DataGridRows = rs.RecordCount
End Sub

逐步运行都有数据显示，就是附加不到datagrid 控件上~~
请大家帮帮谢谢了

设置一下rs.CursorLocation=adUseClient

我才学VB 麻烦斑竹能说清楚点吗？万分感谢了

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
rs.CursorLocation=adUseClient

....
....

谢谢 万分感谢，终于弄出来！以后有问题可以请教您吗

可以的.