Data type mismatch in criteria expression

[HuyNS]

Hi all!
Minh run câu lệnh này trong access sao lại bị báo lỗi "data type mismatch in criteria expression". Em tìm mãi nguyên nhân mà ko biết tại sao. Nhờ mọi người chỉ giúp nhé.

Sub insert2db()
         Dim i As Integer
         Dim ArrData(1 To 29, 1)
         For i = 1 To 29
                ArrData(i, 1) = i
         Next
         Dim cnn1 As New ADODB.Connection
         Dim rcSet As New Recordset
         Dim Sql As String
         Set cnn1 = New ADODB.Connection
         Set rcSet = New ADODB.Recordset
        If cnn1.State = adStateOpen Then
            cnn1.Close
        End If
        cnn1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source = c:\Users\Nhat\Documents\Database4.accdb ; " & _
                            "Mode = Share Exclusive;" & _
                            "User ID = Admin;"
         cnn1.ConnectionTimeout = 30
         cnn1.Open
         Sql = "INSERT INTO  Scores([Cau 1],[Cau 2],[Cau 3],[Cau 4a],[Cau 4b],[Cau 4c],[Cau 5], [Cau 6],[Cau 7],[Cau 8],[Cau 9],[Cau 10],[Cau 11],[Cau 12],[Cau 13],[Cau 14],[Cau 15],[Cau 16],[Cau 17],[Cau 18],[Cau 19],[Cau 20],[Cau 21],[Cau 22],[Cau 23],[Cau 24],[Cau 25],[Cau 26],[Cau 27]) " & _
                    "VALUES ( '& ArrData(1,1)' ,  '& ArrData(2,1)',  '&ArrData(3,1)',  '&ArrData(4,1)',  '&ArrData(5,1)' , '&ArrData(6,1)', '&ArrData(7,1)', '&ArrData(8,1)', '&ArrData(9,1)', '&ArrData(10,1)', '&ArrData(11,1)', '&ArrData(12,1)', '&ArrData(13,1)', '&ArrData(14,1)', '&ArrData(15,1)',  '&ArrData(16,1)', '&ArrData(17,1)',  '&ArrData(18,1)',  '&ArrData(19,1)' , '&ArrData(20,1)', '&ArrData(21,1)', '&ArrData(22,1)', '&ArrData(23,1)', '&ArrData(24,1)', '&ArrData(25,1)', '&ArrData(26,1)', '&ArrData(27,1)', '&ArrData(28,1)', '&ArrData(29,1)');"
        cnn1.Execute (Sql)
        cnn1.Close
End Sub

 

[HuyNS]

Da tim ra loi ! 1 loi cu phap ngo ngan.