Insert into

Hej

Jeg har følgende kode

    Dim PersonID As Integer
   
   
'    MsgBox FktGaveID
'  MsgBox FktVigtighedsID
   
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
   
    Dim rs2 As ADODB.Recordset
    Set rs2 = New ADODB.Recordset
   
    With rs
        Set .ActiveConnection = CurrentProject.Connection
        .Open "SELECT T_Person.ID FROM T_Person WHERE (T_Person.Vigtighedsgrad = FktVigtighedsID());"
        .MoveFirst
        PersonID = rs("ID")
    MsgBox FktVigtighedsID
        With rs2
            Set .ActiveConnection = CurrentProject.Connection
            .Open "INSERT INTO T_GavePerson VALUES (GaveID, PersonID)"
   
    MsgBox FktVigtighedsID
       
        End With
        rs2.Close
        Set rs2 = New ADODB.Recordset
    MsgBox FktVigtighedsID
     
    End With
    rs.Close

Når jeg når til min insert, får jeg at der ikke er angivet nogen værdi for en eller flere krævene parametre. Men der er kun de to felter i databasen.
Kan nogen fortælle mig hvad fejlen er?