怎么把VB程序和access数据库连在一起?

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\11.mdb"
If Text1.Text = "" Then
MsgBox "没有查询条件"
Exit Sub
Else
rs.Open "select * from 22 where ID='" & Text1.Text & "'", cn
If rs.EOF = False Then
Text2.Text = IIf(rs.Fields(1) <> "", rs.Fields(1), "")
Text3.Text = IIf(rs.Fields(2) <> "", rs.Fields(2), "")
Else
MsgBox "没有找到此条记录"
Exit Sub
End If
End If
rs.Close
cn.Close
Set cn = Nothing