populating a combo box in vbscript

[tibor]

hi all,

im not too good with the vbscript. i am trying to populate a combo box using a sql query. here is the code that i have

dim cDB
dim oRec
 
 
 
set cDB = Session.AppDatabase
Set oRec = cDB.OpenRecordset("Select distinct dbo.vluCustomerAddrBilling.AddrName, dbo.tPA00175.chrJobName FROM dbo.vluCustomerAddrBilling INNER JOIN dbo.tPA00175 ON dbo.vluCustomerAddrBilling.CustKey = dbo.tPA00175.CustKey WHERE (dbo.tPA00175.chrJobName = '"&Form.Controls("txtProjectName")&"')",1,0)
 
Do Until oRec.EOF
     combobox1.AddItem oRec("AddrName")
     oRec.MoveNext
     Loop
     oRec.Close

i am getting the error message with the oRec.EOF. this is the way to do it in vb6 but what is the syntax for vb script.

thanks alot
tibor