Как организовать добавление записи в базу через Command ???

Вот как это по человечески
Public Sub AddR(vData1 As String, vData2 As String, vData3 As String, vData4 As String)
CmdR.Parameters("fi").Value = vData1
CmdR.Parameters("sec").Value = vData2
CmdR.Parameters("thr").Value = vData3
CmdR.Parameters("fr").Value = vData4
CmdR.CommandText = "Insert into Ñîòðóäíèêè Values(,?,?,?,?,0,0,Null,Null,0,Null,Null)"
Set ConRs = CmdR.Execute
End Sub
Это процедура класса
Private Sub cmdAddR_Click()
Dim parameter1 As String
Dim parameter2 As String
Dim parameter3 As String
Dim parameter4 As String
parameter1 = InputBox("фышпо:")
parameter2 = InputBox("фцжпкщы:")
parameter3 = InputBox("фцщшдыпшг:")
parameter4 = InputBox("фэцугзщ:")
rsAd.AddR(parameter1, parameter2, parameter3, parameter4)
End Sub