我在网上找了一下相关的帖子，还是不得其解，请各位指点：
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错。

能否帮我加上相关代码

我也曾经遇到过同样的错误 不知道和你的是不是一个错误...最好简化一些代码...

With ado1
ado1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xq.mdb;Persist Security Info=False"
ado1.RecordSource = "select * from zhuce"
ado1.Refresh
Data1.Refresh
Data1.Row = 3
End With

'应当注意的是Data1.Row=3 的问题...不对其赋为一个非1的数字的话 可能造成 数据表段更新错误..不知道原因.就这么将就着用吧...

谢谢，我改了一下，，加入了
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

在事件中加入..ROW的指定....
就是DATA1.ROW = 0
这样就是第一个选定项目了...
在with ado1中指定的row 为3 要改为0才能正确的显示而不出现数据段不能更新的错误

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

右下角-----编辑-----更改一下标题就可以了...