ADO to an Access database

[DougP]

here is my code. I am getting Error:
Run time Error '3021':
Either BOF or EOF is true or the curent record has been deleted.

================================
Dim Conn3 As ADODB.Connection, rst3 As ADODB.Recordset, SQLcode3, strSQL As String
Set Conn3 = New ADODB.Connection

Set rst3 = New ADODB.Recordset
Conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\smallbserver\AppsSBS\Encore\FilePaths.mdb"
SQLcode3 = "SELECT * FROM [Drawing-Paths] WHERE Drawing Like '" & Extension & "*';"
rst3.Open SQLcode3, Conn3, adOpenStatic, adLockOptimistic

'Instantiate a Recordset object.
Set rst3 = New ADODB.Recordset

'Open a recordset using the Open method
'and use the connection established by the Connection object.
strSQL = "SELECT * FROM [Drawing-Paths] WHERE Drawing Like '" & Extension & "*';"
rst3.Open strSQL, Conn3, , , adCmdText
rst3.MoveFirst
Debug.Print rst3!Path
=============================
I just need to return one record from the database.

TIA

DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[jonscott8]

MTL, the 1 row you are anticipating to be returned, isnt. Hence, you have an empty recordset.

rst3.Open strSQL, Conn3, , , adCmdText
If rst3.EOF and rst3.BOF Then
MsgBox "You've got an empty recordset"
Else
rst3.MoveFirst
Debug.Print rst3!Path
End If Jon Hawkins

 

[DougP]

Thanks for the info. the problem was actually something else and it keep stopping there.
The record is in the database, and even if I changed the SQL statement to "Select * From Tablename" I got the same error.

Thanks again though DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[mgardiner]

Doug

Why do you reset your RST3 recordset after having spent
all the time to add data to that recordset in the first part
and then reset it to a new recordset just to fill it again.
should you use two different recordsets?
Morgan