Adding to MsAccess[RESOLVED]

[Rene Hansen]

hi can anybody tell me why this wont add to my MsAccess database ???

Database name is Media.mdb
and table is DVD the colums is matching titel orginal and so on...

Dim SQL as String
 
SQL = "SELECT * from DVD"
Set rsShowDVDRS = dbMediaDB.OpenRecordset(SQL, dbOpenDynaset)  'here it says variable not set or variable block not set
 
With rsShowDVDRS
    
    .AddNew
    !Titel = DK_Titel.Text                    'text
    !orginal = Orginal_Titel.Text         'text
    !genre = DVD_Genre.Text            'combo selection text
    !Tid = Tid.Text                              'numbers
    !År = År.Text                                 'numbers
    !reg = kode                                  'numbers
    
    If Titel Or orginal Or genre Or Tid Or År Or reg = "" Then
    MsgBox ("Alle felter skal udfyldes og reg.kode skal vælges")
    Else
    .Update
    MsgBox ("Film data er gemt")       
    OpdaterDVD                            'is a function
    End If
 
End With

[Hack]

On the surface it looks good...

Do you get an error, or does nothing happen?

Have you put a STOP on your add code and walked through it?