如下图所示，在工作表中录入数据，使用代码可能快速将这些数据添加到“wwu.mdb"数据库的"news"工作表中。
VBA代码如下：
Sub ADO录入数据到Access()
Dim cnn As Object
Dim rst As Object
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.recordset")
Dim sql As String
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "F:\Website\witisopc\23\selfrecords\wwu.mdb"
'sql = "insert into news (vtime,week,lunar,weather,title,content) VALUES ('" & [D3].Value & "','" & [D5].Value & "','" & [D7].Value & "','" & [D9].Value & "','" & [D11].Value & "','" & [D13].Value & "')"
sql = "insert into news (vtime,week,lunar,weather,title,content) VALUES ('" & [D3].Value & "','" & [D5].Value & "','" & [D7].Value & "','" & [D9].Value & "','" & [D11].Value & "','" & [D13].Value & "')"
'文本用'...',日期用#...#()
cnn.Execute sql
cnn.Close
Set cnn = Nothing
End Sub
注：
1 如果是Access2007，使用的连接字符需要更改为：cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "F:\Website\witisopc\23\selfrecords\wwu.accdb"
2 有时会出现“标准表达式中数据类型不匹配 80040e07”的错误提示信息，是因为系统中装了某个软件破坏了系统的动态连接库。
