VB6 Просмотр файла и подключение

Question

Я хочу просмотреть файл и загрузить как новое соединение

     Private Sub BrowseBtn_Click()  

     CommonDialog1.ShowOpen
     Text1.Text = CommonDialog1.FileName

      End Sub

      Private Sub ConnectionBtn_Click()
      If con.State = 1 Then
      con.Close
      End If
      Set con = New ADODB.Connection
      con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & CommonDialog1

      End Sub

Ошибка 394 Свойство только для записи

Answer 1

CommonDialog1 является компонентом COM. Используйте его свойство.

  con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & CommonDialog1.FileName

Или

  con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Text1.Text

Так как вы уже получите его значение