请帮帮我？（关于datadrid)

Question

Dim find_str As String
Dim cnn2 As ADODB.Connection
Dim rssearch As ADODB.Recordset
If txtquery.Text = Empty Then
    MsgBox "请输入查询内容", , "查询"
    txtquery.SetFocus
    End If
    find_str = "select *from 事务表 " & _
    "where 物品名称='" & trim(txtquery.Text) & "'"
Set cnn2 = New ADODB.Connection
    cnn2.ConnectionString = "provider=MICROSOFT.Jet.OLEDB.3.51;" & _
    "data source=e:\pass\main.mdb (user id = ;passwd = )"
cnn2.Open
Set rssearch = New ADODB.Recordset
 rssearch.Open find_str, cnn2, adOpenDynamic
End If
Set DataGrid1.DataSource = rssearch

Answer 1

在If txtquery.Text = Empty Then里面加一个exit sub退出此过程,否则程序执行完if语句继续执行,程序就会产生错误