Проблемы с ADO при подключении базы данных в Visual Basic 6

Option Explicit
Dim strRequest As String
 
Private Sub Combo1_Click()
Dim strRequest As String
 
strRequest = " Select * FROM " & Combo1.List(Combo1.ListIndex & " "
 
End Sub
 
 
Private Sub Text1_DblClick()
 
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
Adodc1.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & Text1 & "; Persist Security Info = False;"
Combo1.Enabled = True
Adodc1.RecordSource = strRequest
Adodc1.CommandType = 4
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub

Private Sub Text1_DblClick()
Dim ConStr As String
Me.CommonDialog1.ShowOpen
Me.Text1 = Me.CommonDialog1.FileName
ConStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Me.Text1 & "; Persist Security Info=False;"
Me.Adodc1.ConnectionString = ConStr
Me.Adodc1.RecordSource = "PROFILE" ' Про это название таблицы в файле Access я тебе говорил , мне нужно , чтобы я смог выбирать это название из ComboBox , если хочу работать с произвольным файлом
Me.Adodc1.CommandType = 2
Me.Adodc1.Refresh
Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
Me.DataGrid1.Refresh
End Sub