Why dosent this 5 line code work???

[jas_1]

Hi,

does anyone know why this doesnt work?

code:

Dim DB as Database
Dim RS as Recordset

Set DB=OpenDatabase("c:\mydata.mdb")
Set RS=DB.OpenRecordset("SELECT name FROM UserInfo WHERE Age>30")
Set Text1.DataSource = rsRecordSet
Text1.DataField = "name"

I would be very greatful to anyone who can help!!

Thanx
Sajjad