Private Sub CommandButton1_Click()
    Dim dbAccess As Database
    Dim reRecordSet As Recordset
    Dim stSQL As String
        Set dbAccess = OpenDatabase("C:\Proba.mdb")
        'таблица NLK, столбец nomer
        stSQL = "SELECT * FROM[NLK] WHERE nomer = '" & TextBox1.Value & "'"
        Set reRecordSet = dbAccess.OpenRecordset(stSQL)
        If (reRecordSet.RecordCount >  0 ) Then
             TextBox2.Value = reRecordSet!Data2 'выводит столбец data2
        Else
            MsgBox "Данные отсутствуют.", vbCritical
        End If
        reRecordSet.Close
        dbAccess.Close
        Set reRecordSet = Nothing
        Set dbAccess = Nothing
End Sub