vb mysql 更新数据库_VB数据库更新update的问题

有高手么，我还遇到个千年费解的问题，学了那么久楞是看不懂，

下面的是一段代码 可以说无懈可击，但是运行时候datagrid控件什么内容都不显示，数据库中记录确实被删除啦，但是奇怪的是datagrid控件的内容变成空白，有哪位高人指点迷津不胜感激，如果解决啦还有重分感谢

Option Explicit

Dim cn As New ADODB.Connection

Dim cmd As New ADODB.Command

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

cmd.CommandText = 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