Visual Basic

RTB1.SelectionStart = RTB1.TextLength
RTB1.Focus()
RTB1.ScrollToCaret()

SELECT PassID FROM Users WHERE ( (Today_Date>=#12/15/2004#) AND (Today_Date<#12/16/2004#) );

<br />
strSQLUpdate = "SELECT PassID From Users WHERE (PassID)= " & SearchSQlPassID & " AND (Today_Date)=Date()"  <--- works Sweet :)<br />
    <br />
'open Connection<br />
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RMSC LOGIN\MYDataBase.mdb;Persist Security Info=False"<br />
Set Cnxn = New ADODB.Connection<br />
Cnxn.Open strCnxn<br />
Set cmdChange = New ADODB.Command  ' Create command object<br />
Set cmdChange.ActiveConnection = Cnxn<br />
cmdChange.CommandText = strSQLUpdate<br />
Set rsUser = cmdChange.Execute   ' execute the SQL command<br />

<br />
If rsUser.Fields("PassID").Value = 0 Then <-- error here  Error 3021  either BOF or EOF is true or the record has been deleted<br />

<br />
MsgBox ("You first need to log In before you log out!!")<br />
     Cnxn.Close  ' Close everything<br />
     Set Cnxn = Nothing<br />
     Unload Me<br />

<br />
if rsUser.BOF then <br />
     MsgBox ("You first need to log In before you     log out!!")<br />
     Cnxn.Close ' Close everything<br />
     Set Cnxn = Nothing<br />
     Unload Me<br />
else <br />

Dim inputArray As String()
MyFunction(inputArray)
.
.
.
Public Sub MyFunction(ByRef ia As String())
    // some code
    ReDim ia(someNumber)
    // some code
End Sub

Dim inputArray As String()
inputArray = MyFunction(someValue)
.
.
.
Public Function MyFunction(ByVal value) As String()
    // some code
    Dim ia As String()
    // some more code
    Return ia
End Sub