请告诉我这段代码有什么问题。它显示错误...“必须将 rowsourcetype 属性设置为值列表才能使用它”
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strItem As String
strSQL = "SELECT CustomerID, CompanyName FROM Customers"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
strItem = rs.Fields("CustomerID").Value & ";" _
& rs.Fields("CompanyName").Value
Me.List1.AddItem strItem ' Row Source Type must be Value List
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub