[Filemaker/Visual Basic] Updaten van record lukt niet

[semicon]

Hallo,

Ik krijg het maar niet voor elkaar mijn update te laten werken op een filemaker database.
Ik heb voor mij de volgende code

code:

Private Sub Fruit_Btn_Click()
    Dim req As IRequest
    If Fruit_Pk.Text = "" Then
        Set req = Connect(Insert, "localhost", 591, "fdb", "fmc")

        req.Parts.Add Data("fruit", txt_Fruit.Text)
        req.Parts.Add Data("color", txt_ColorRGB.Text)
        req.Execute
        StatusBar.SimpleText = txt_Fruit.Text & " Added."
        txt_Fruit.Text = ""
        Fruit_Btn.Caption = "Add"
    Else
        Set req = Connect(search, "localhost", 591, "fdb", "fmc")
        req.Parts.Add Query("!pk", Fruit_Pk.Text)

        Dim Rs As IRecordset
        Set Rs = req.Execute
        
        Rs("fruit") = txt_Fruit.Text
        Rs("color") = txt_ColorRGB.Text
        Rs.Update

        StatusBar.SimpleText = txt_Fruit.Text & " Editted."
        Set Rs = Nothing
    End If
    Set req = Nothing
End Sub

Het gaat bij het runnen van de application fout op deze regel

code:

        Set req = Connect(search, "localhost", 591, "fdb", "fmc")

Als melding "invalid command parameter for connect". Wat ik nou zo raar vindt, in mijn application heb ik een search die exact hetzeflde connect, maar het wel doet.

Eventueel deze code die wel werkt?

code:

Private Sub Search_Btn_Click()
    Dim req As IRequest
    
    Set req = Connect(search, "localhost", 591, "fdb", "fmc")
    req.Parts.Add Query("fruit", Search_Str.Text)

    Dim Rs As IRecordset
    Set Rs = req.Execute
    
    Search_Result_List.Clear
    Do While Rs.MoveToNext
        
        Search_Result_List.AddItem Rs.Fields("fruit").Value & " " & Rs.Fields("color").Value
        Search_Result_List.ItemData(Search_Result_List.NewIndex) = Rs.Fields("!pk").Value
    Loop
    Set Rs = Nothing
End Sub

Misschien dat iemand mij kan helpen?