Private Sub Command1_Click()

 Dim oCN As ADODB.Connection
 Dim oRS As ADODB.Recordset
 Dim sSql As String: sSql = ""
 Dim sPath As String: sPath = "C:\Projects\Contacts.MDB"

 Set oCN = New ADODB.Connection

 ' Connect to Access MDB
 oCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Persist Security Info=True;" & _
                        "Data Source=" & sPath
 oCN.Open
 sSql = "Select WorkPhone from Contacts where LastName='" & Text1.Text & "'"
 Set oRS = oCN.Execute(sSql)
 If oRS.EOF Then
  Label3.Caption = "Not Found"
 Else
  Label3.Caption = oRS("WorkPhone")
 End If 

 oRS.Close
 oCN.Close
 Set oCN = Nothing

End Sub

this is txt file 