Ms access 在visual basic for windows application-Access数据库上作为宏运行

好的，我正在尝试以编程方式为access数据库生成记录，但它一直像宏一样显示，并且所讨论的代码行显示为红色。 我做错了什么

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

之后添加&尝试写入可读的字符串连接。而且，由于CustId是数字，因此没有引号：

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

您在CustName之后缺少一个（&F）