我在网上找了一下相关的帖子，还是不得其解，请各位指点：
Private Sub Form_Load()
Dim conStr As String

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"

conn.Open conStr
With rst
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
End With

rst.Open "stuInfo", conn, , , adCmdTable

Set DBG1.DataSource = rst

End Sub

Private Sub Comname_Click()
Dim strsele As String
If txtName.Text = " " Then
MsgBox "姓名不能为空！", vbOKOnly, "提示信息"
txtName.SetFocus
End If

strsele = "select * from stuInfo Where name='" & trim(txtName.Text) & " '"

Set rst = conn.Execute(strsele)

End Sub

运行到Set rst = conn.Execute(strsele)报424错。

能否帮我加上相关代码

谢谢，我改了一下，，加入了
Private conn As ADODB.Connection
Private rst As ADODB.Recordset
现在报实时错误3705，对像打开时，不充许操作
Private Sub Comname_Click()
Dim strsplx As String
Dim strcpdate1 As Date
Dim strcpdate2 As Date
Dim strpfdate1 As Date
Dim strpfdate2 As Date
Dim strsele As String
If Txtname.Text = " " Then
MsgBox "姓名不能为空！", vbOKOnly, "提示信息"
Txtname.SetFocus
End If
strsele = "select * from stuInfo Where name='" & Trim(Txtname.Text) & " '"

Set rst = conn.Execute(strsele)

rst.Open strsele, conn, adOpenDynamic, adLockOptimistic

If rst.EOF Then
Set DBG1.DataSource = rst
End If
运行到：rst.Open strsele, conn, adOpenDynamic, adLockOptimistic
就报错。请再指教，谢谢。

现在不报任何错，但返回的不是我需要的记录，查询前后的数据没有任何变化。
Private Sub Comname_Click()
Dim strsplx As String
Dim strcpdate1 As Date
Dim strcpdate2 As Date
Dim strpfdate1 As Date
Dim strpfdate2 As Date
Dim strsele As String
If Txtname.Text = " " Then
MsgBox "姓名不能为空！", vbOKOnly, "提示信息"
Txtname.SetFocus
End If
strsele = "select * from stuInfo Where name='" & Trim(Txtname.Text) & " '"

Set rst = conn.Execute(strsele)
rst.Close
rst.Open strsele, conn, adOpenDynamic, adLockOptimistic
rst.Requery

If rst.EOF Then
Set DBG1.DataSource = rst
End If


End Sub

感谢“学习VB才2天”，按你的提示，问题已解决。顺便问题一下，任何结贴？