求助一段程序

koutx

试试看
Private Sub Text33_Change()
On Error GoTo Err_Text33_Change

           以下添上你的语句块

   
Exit_Text33_Change:
    Exit Sub

Err_Text33_Change:
    MsgBox "库中无此记录或运行出错",'"提示"
    Resume Exit_Text33_Change

koutx

If rs.NoMatch Then
又学一招