如何链接改了后缀名的数据库？

gdfsslec

是手工连接还是用代码？
手工指定用ACCESS打开啊
用代码把数据库的名字的后缀改了就可以了啊！ 比如db1.LIB

gdfsslec

如果是用代码链接的话——把数据库的名字后缀改了就可以了

Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As Table
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & CurrentProject.Path & "\db1.LIB;Jet OLEDBatabase Password=" & mima & ";"
cat.ActiveConnection = cnn
For Each tbl In cat.Tables
    GetTblName = tbl.Name
    If Left(tbl.Name, 4) <> "msys" Then
        IsLink = LinkTbl(CurrentProject.Path & "\db1.LIB", "", GetTblName, GetTblName)
    End If
Next
Set tbl = Nothing
Set cat = Nothing
cnn.Close
Set cnn = Nothing