Отрывок из прог

Dim cn As Connection
Dim rs As Recordset
Dim sel As String

Set wrkODBC = CreateWorkspace(" ", " ", " ", dbUseODBC)
Set cn = wrkODBC.OpenConnection(" ", , , "ODBC;DATABASE=;;;DSN=Solomon;")
Set rs = cn.OpenRecordset("SELECT StrId FROM xx_TypeOper_SNS", dbOpenDynamic)

sel = "insert into " + Combo1.Text + " (StrId, TypeOper, SignOper) values (" + ButtonId + ", " + List2.Text + "," + SignId + ")"

Set rs = cn.OpenRecordset(sel)
If rs.EOF <> True Then - True ?! хотя в таблице есть записи

пожалуйста помогите новичку заранее благодарна всем!!! :)