javajom
Javajon
- Local time
- Today, 22:47
- Joined
- Mar 5, 2008
- Messages
- 37
Hi,
What I am trying to do is have a array which will grow as needed. I have written some code but doesn't work.
Any ideas? Either tells me array is already defined or subscript out of range.
What I am trying to do is have a array which will grow as needed. I have written some code but doesn't work.
Code:
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
Dim data5(1) As String
Dim data5a(1) As String
Dim mySQL As String
mySQL = " SELECT userName, passWord, securityLevel"
mySQL = mySQL + " from secure111"
mySQL = mySQL + " WHERE(((secure111.securityLevel) >=0))"
myRecordSet.Open mySQL
While myRecordSet.EOF = False
If myRecordSet.Fields(2).Value = 5 Then
data5(i) = (myRecordSet.Fields(1).Value)
data5a(i) = ((myRecordSet.Fields(0).Value))
i = i + 1
ReDim Preserve data5(UBound(data5) + 1)
ReDim Preserve data5a(UBound(data5) + 1)
End If
Any ideas? Either tells me array is already defined or subscript out of range.