Dim sql As String
On Error GoTo ErrHandler
Proverka = 1
sql = "SELECT Получатель.Код_Получатель, Получатель.Фамилия, Получатель.Имя, Получатель.Отчество, Группы.Название FROM Группы INNER JOIN Получатель ON Группы.[Код_группы] = Получатель.[Код_группы];"
adoData.ConnectionString = cmdBaza 'это переменная задано и работает норм
adoData.RecordSource = sql
adoData.Refresh
Text1.Text = adoData.Recordset("Код_Получатель")
Text2.Text = adoData.Recordset("Фамилия")
Text3.Text = adoData.Recordset("Имя")
Text4.Text = adoData.Recordset("Отчество")
Text5.Text = adoData.Recordset("Название")
ErrHandler:
MsgBox "Искомых данных не найденно", vbCritical + vbOKOnly, "Ошибка!!!"
Call Command9_Click