Incomplete Query

[SAMS]

Can someone tell me why i keep getting error for this code? Thks.

"Object variable or With variable not set"

With Data3
.RecordSource = "select * from " & LTrim(Text70.Text) & "'"
.Recordset.MoveFirst
.Refresh
End With

[c@lle]

the error is not in the query, but in the object you are using (Data3)

First of all, you need to 'set' the object.

I presume you did:
dim Data3 as adodb.recordset

Now you have to initialize it, by coding:
set Data3 = new adodb.recordset

You can do this right in this part of code, or in the form load event or somewere else.

[Clunietp]

if data3 is a db control, then make sure the databasename property is set. After assigning SQL to your recordsource, then refresh, then movefirst. You are moving first then refreshing. the SQL doesn't really execute until you issue a refresh command.

HTH

Tom

[SAMS]

Thks guys, for all your help.