vba ado sql 创建连接

sub 绑定（）

 dim conn as object

set conn=createobject("adodb.connection")

end sub

数据库的打开

connection.open connectionstring,userid,password,options

例如：

Sub Mycnn()    Dim cnn As Object    '定义变量    Set cnn = CreateObject("adodb.connection")'后期绑定ADOcnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName

'建立链接    cnn.Close    '关闭链接    Set cnn = Nothing    '释放内存