[RESOLVED]BOF and EOF [/RESOLVED]
Well...
it's all mendhak's fault ;)
I changed over my ADO object to the code...
I having a problem with EOF and BOF. When I reach BOF or EOF I get this error:
Run-time error '3021':
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.
Here is my code:
VB Code:
Public Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\bb-calc.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "SELECT * from tblBrushBed", cn, adOpenDynamic, adLockPessimistic
FillFields
End Sub
Private Sub cmdPrev_Click()
If rs.BOF = False Then
rs.MovePrevious
FillFields
End If
End Sub
Private Sub cmdNext_Click()
If rs.EOF = False Then
rs.MoveNext
FillFields
End If
End Sub