在vba 中使用sql 语句的格式是怎么样的?

应该就是你想要的吧！！！直接用就成！！！

Public Sub 技巧12_021()
Dim mydata As String, mytable As String, SQL As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim myArray As Variant
myArray = Array("CY100", "魏喜", "男", "初一5班", 95, _
88, 92, 84, 93, 80, 532, #7/6/2006#)
mydata = ThisWorkbook.Path & "\成绩管理.mdb" '指定数据库
mytable = "考试成绩" '指定数据表
'建立与数据库的连接
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open mydata
End With
'查询数据表
SQL = "select * from " & mytable
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
'添加记录
rs.AddNew
For i = 0 To rs.Fields.Count - 1
rs.Fields(i) = myArray