VB6浏览文件和连接

我想浏览文件并作为新连接上载

     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属性仅写

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