Люди добрые, помогите!

Имеется кусок программы:
Dim wrkODBC As DAO.Workspace, conRap As DAO.Connection
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "", "", dbUseODBC)
strDSN = "ODBC;DSN=MS Access Database;DBQ=" & strFile & ";PWD=" & strPass
Set conRap = wrkODBC.OpenConnection(strDate, dbDriverNoPrompt, False, strDSN)
>соединение срабатывает
Set rsSet = conRap.OpenRecordset(strName,dbOpenForwardOnly)
>вроде открывается
Debug.Print rsSet.Fields.Count
Debug.Print rsSet.RecordCount

Вот теперь приплыли. Видны ВСЕ поля, но ни одной записи(Recordcount=-1). Подскажите, чего ей не хватает?

чет ты нагородил слишком много.
для начала скажи в чем работаеш Access или просто VB.
судя по коду Access.

Вот живой пример из моей рабочей базы.

Private Sub SaveData_Click()
Dim Db As New ADODB.Connection
Dim RsZ As New ADODB.Recordset
Set Db = CurrentProject.Connection
RsZ.Open "Select * From [tРабочийДеталь]", Db, adOpenDynamic, & _ adLockOptimistic
RsZ.AddNew
RsZ.Fields("Фамилия") = Me.пФамилия
RsZ.Fields("Наряд") = Me.пНаряд
RsZ.Fields("Деталь") = Me.пДетали
RsZ.Fields("Задание") = Me.пЗадание
RsZ.Fields("НормаВр") = Me.пНормаВр
RsZ.Fields("Дата") = Me.пДата
RsZ.Update
RsZ.Close
End Sub

P.S. в данном случае если перемещаешся по записям Update можно не делать, при перемещении к другой записи данные сохранятся. в данном случае запись добавляется в новую строку без перемещения.