Private Sub 组合框名_AfterUpdate()
On Error GoTo Error_组合框名_AfterUpdate
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[dh] = '" & Me.组合框名 & "'"
'注:dh是组合框绑定的字段名
If Not rs.EOF Then Me..Bookmark = rs.Bookmark
Exit_组合框名_AfterUpdate:
Exit Sub
Error_组合框名_AfterUpdate:
MsgBox "运行错误", , "提示"
Resume Exit_组合框名_AfterUpdate
End Sub