excel VBA 更新 access

Sub update_access()

Dim path As String
path = ""

Dim cnn As ADODB.Connection
'Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open path

For i = 2 To 20

cnn.Execute (Sheet1.Cells(i, 1))

Next

cnn.Close

End Sub