civic91dx
05-02-2003, 08:25 AM
well i get that error when i go back in my data base that i open anyone know what is wrong. it work fine going foward not back
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = "C:\Documents and Settings\Administrator\Desktop\Data\Information\bo ys.mdb;Persist Security Info=False"
conn.ConnectionString = Provider & Path
conn.Open
If sd = "Southwest" Then sql = "Select * from Southwest"
rs.Open sql, conn
'rs.Refresh
Dim sindex As Integer
Dim index As Integer
sindex = 0
bla = 0
'If rsrecord = 0 Then rs.MovePrevious
Do Until bla = rsrecord
rs.MovePrevious
If rs.BOF Then
rs.MovePrevious
End If
bla = bla - 1
Loop
For index = 0 To 4
Text1(index).Text = rs(sindex)
sindex = sindex + 1
Next
rsrecord = rsrecord - 1
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = "C:\Documents and Settings\Administrator\Desktop\Data\Information\bo ys.mdb;Persist Security Info=False"
conn.ConnectionString = Provider & Path
conn.Open
If sd = "Southwest" Then sql = "Select * from Southwest"
rs.Open sql, conn
'rs.Refresh
Dim sindex As Integer
Dim index As Integer
sindex = 0
bla = 0
'If rsrecord = 0 Then rs.MovePrevious
Do Until bla = rsrecord
rs.MovePrevious
If rs.BOF Then
rs.MovePrevious
End If
bla = bla - 1
Loop
For index = 0 To 4
Text1(index).Text = rs(sindex)
sindex = sindex + 1
Next
rsrecord = rsrecord - 1