使用ADO链接数据库

Sub 使用ADO链接数据库()
Dim cnn As ADODB.Connection
On Error Resume Next
Set cnn = CreateObject("ADODB.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;" & "extended  properties=excel 8.0;" & "data soucrce=" & ThisWorkbook.FullName
MsgBox "链接数据库成功!", vbInformation + vbOKOnly, "提示"
cnn.Close
Set cnn = Nothing
End Sub