是不是access2000?如果是的话,用OLEDB.4.0

解决方案 »

  1.   

    调用Ado连接窗口,获得连接字符串。   用VB新建一标准EXE工程,引用Microsoft OLE DB Service Component 1.0 Type Libary和Microsoft ActiveX Data Objects 2.x Library(具体操作与ADODC的引用类似,只是通过菜单[工程]\[引用...]选),加一个TextBox到Form1,双击Form1,进入Code编辑区,清除VB自动生成的所有代码,再输入下述代码: 
      Option Explicit 
      Private Sub Form_Load()   Dim dlTemp As MSDASC.DataLinks   Dim cnTemp As ADODB.connection 
      Set dlTemp = New MSDASC.DataLinks   Set cnTemp = New ADODB.connection 
      dlTemp.PromptEdit cnTemp   Text1.Text = cnTemp.ConnectionString 
      Set dlTemp = Nothing   Set cnTemp = Nothing   End Sub 
      运行时会弹出一个与ADODC相似的生成连接字符串的向导,输入各相关数据,“确定”后在Form1的Text1中就得到我们需要的连接字符串。 呵呵,可以在运行时获得连接串,存起来然后下次用就可以啦