what is wrong in this code?

[sal1150]

i am useing class and i write this code

'*************************
Public Sub HOSPLIST(FRM As Form,list as object)
FRM.List.Clear
Set Rs2 = New Recordset
Set Rs2 = cn.Execute("SELECT * FROM HOSPT")
Do Until Rs2.EOF
FRM.List.AddItem Rs2("HOSPNAME")
Rs2.MoveNext
Loop
Rs2.Close
Set Rs2 = Nothing
End Sub
'***************************
'where list is combobox or listbox

[Anglo Saxon]

You dont need to reference the form :

Public Sub HOSPLIST(FRM As Form,list as object) 
list.Clear 
Set Rs2 = New Recordset 
Set Rs2 = cn.Execute("SELECT * FROM HOSPT") 
Do Until Rs2.EOF 
list.AddItem Rs2("HOSPNAME") 
Rs2.MoveNext 
Loop 
Rs2.Close 
Set Rs2 = Nothing 
End Sub

By the way , it would also help a lot if you actually told us what error you were getting or tried to explain what was going wrong!


---
Anglo saxon

[sal1150]

many thanks Anglo saxon
it is ok.....