what is wrong in this code?

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

You dont need to reference the form :

Code:

---

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

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