Runtime Error:3021

[madhanacdc]

whenever i try load the form which contains this code. i get the "runtime error '3021': Either BOF or EOF is true.... "

when i press "debug" button it shows the yellow highlight on "rs1.MoveFirst" line....

plz help me resolve this problem

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "dsn=sts;uid=system;pwd=ora92"
conn.Open

Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = conn
rs1.Open " select specid from rule "
rs1.MoveFirst
While Not rs1.EOF
Combo1.AddItem rs1(0)
rs1.MoveNext
Wend
Adodc1.Visible = False
End Sub