Ошибка в объявлении переменной

Помогите кто может плиз начинающему

Private Sub Vstavka(F1 As String, F2 As String, F3 As String, F4 As String, F5 As String, F6 As String, F7 As String, F8 As Date, F9 As Currency, F11 As String)
Dim SQL1 As String
SQL1 = "insert main(Naimenovanie,Tip,Ustroistvo,Raspolojenie_plan,Raspolojenie_fact,Vid_zakupki,Firma_zakupki,Data_zakupki,Stoimost, Sistema) values(F1,F2,F3,F4,F5,F6,F7,F8,F9,F11)"
DoCmd.RunSQL SQL1
End Sub

Private Sub Êíîïêà21_Click()
Dim F As Integer
Dim S As Integer
Set F = Kolvo.Value
For S = 1 To F
Vstavka Me.Naimenovanie.Value, Me.Tip.Value, Me.Ustroistvo.Value, Me.Raspolojenie_plan.Value, Me.Raspolojenie_fact.Value, Me.Vid_zakupki.Value, Me.Firma_zakupki.Value, Me.Data_zakupki.Value, Me.Stoimost.Value, Me.Sistema.Value
Exit For
Next
End Sub



ошибка в месте: Set F

set убери

)) это первое.. а дальше хуже..

...дальше книжку в руки...

Serj0502

Set F = Kolvo.Value For S = 1 To F

А разве бывает цикл по значению, я думал по count ?

а процедура Vstavka работает, как вы думаете?
_____________________________________
Мое конг-фу сильнее твоего

читаем ФАК
_____________________________________
Мое конг-фу сильнее твоего

barrabas

а процедура Vstavka работает, как вы думаете? _____________________________________ Мое конг-фу сильнее твоего

А мое конг-фу вообще бессильно
FAQ о необходимости которого так долго говорили большевики и только FAQ, батенька.