Lige lidt hjælp til at få data ned i tabel

Jeg har en lille metode som tager indholdet af en combobox og lægger det ned i en tabel hvis det ikke findes i forvejen. Metoden blev lavet af en bruger her på eksperten men jeg har kun brugt den i Office 2000-pakken. Nu ville jeg gerne bruge den igen, men denne gang sidder jeg med 97-pakken, og jeg ved ikke om det er mig eller om det er pakken der er noget galt med, jeg kan ihvertfald ikke få det til at virke.
Metoden er som følger:
Private Sub Sælger_NotInList(NewData As String, Response As Integer)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "Farver", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
    rs!Farve = NewData
    rs.Update
    Response = acDataErrAdded
    rs.Close
    Set rs = Nothing
End Sub

Som jeg ser det er det umiddelbart ADODB-delen der er noget galt med. Jeg håber der er nogen der kan hjælpe mig til at få det til at virke.

weinreich