Only retruning one recordset when using a strSQL based on a select query.

[Kiteknight]

Public Sub loadArray()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strSQL As String

strSQL = "SELECT tblList.ID, " & "tblList.DateAdd, " & "tblList.CPT, " & "tblList.Description, " & "tblList.RVU " & "FROM tblList; "

Debug.Print strSQL
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Debug.Print rs.RecordCount


Set db = Nothing
Set rs = Nothing




'all works without error although the recordcount is only 1 where there should be many more. Any suggestions would be appreciated.

[ItsMe]

Set rs = db.OpenRecordset(strSQL)
rs.movelast 'populate recordset
Debug.Print rs.RecordCount

[June7]

Also, all that concatenation is not needed:

strSQL = "SELECT ID, DateAdd, CPT, Description, RVU FROM tblList;"

[ItsMe]

I didn't even notice the aperasands

[Kiteknight]

Excellent!! Very much appreciated.