有高手么，我还遇到个千年费解的问题，学了那么久楞是看不懂，
下面的是一段代码 可以说无懈可击，但是运行时候datagrid控件什么内容都不显示，数据库中记录确实被删除啦，但是奇怪的是datagrid控件的内容变成空白，有哪位高人指点迷津不胜感激，如果解决啦还有重分感谢
Option Explicit
Dim cn As New ADODB.Connection
Dim cmd As New mand
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
If Text1.Text <> "" Then
sql = "delete * from 用户信息表 where 姓名='" + Trim(Text1.Text) + " ' "
Set cmd.ActiveConnection = cn
mandText = sql
cmd.Execute
rs.Requery
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End Sub
Private Sub Form_Load()
Dim pstr As String
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户信息表.mdb;Persist Security Info=false "
cn.Open pstr
rs.Open "用户信息表", cn, adOpenKeyset, adLockPessimistic
End Sub
