作爲Windows應用程序的visual basic上的宏運行 - 訪問數據庫

Question

好吧我試圖以編程方式爲訪問數據庫生成記錄，但它一直顯示爲一個宏，並且有問題的代碼行顯示爲紅色。 我在做什麼錯？

Sub arrayData() 
Dim custnames() As Varient 
Dim num As Integer, dbs As Database, InsertRecord As String 
Dim CustId As Integer, num1 As Integer 
Dim CustName As String 
Set dbs = CurrentDb() 
CustId = 0 
For num1 = 0 To 9 
CustId = CustId + 1 
custnames = Array("Peter", "Mary", "Frank", "Ian", "Ron", "Natalie","Radhu", "Jat", "David") 
num = Int((9 - 0 + 1) * Rnd + 0) 
// ERROR OCCURS ON THE LINE BELOW. 
InsertRecord = "insert into CUSTOMER(CustNo,CustFName)values("&"'"&CustId&"'"&","&"'"&CustName&"'"&")" 
dbs.Execute InsertRecord 
Debug.Print CustId; CustName 
End Sub 

編輯：的CustName

Answer 1

嘗試後添加&寫可讀的字符串連接。並且，由於CustId是數字，所以沒有引號：

InsertRecord = "insert into CUSTOMER (CustNo,CustFName) values (" & CustId & ",'" & CustName & "')"