Sub CnOpen()
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
If Right(App.Path, 1) <> "\" Then
Cn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KbGzfp.mdb;"
Else
Cn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "KbGzfp.mdb;"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024