Recordset i VB

Hej.

Jeg har prøvet i flere omgange at få hevet et recordset ud af min database, og så få det løbet igennem, men bestemt uden held.

Jeg benytter en onClick som skal klare det for mig:
Dim strSQL As String
Dim DB As Database, Def As DAO.QueryDef, Rs As DAO.Recordset
Set DB = CurrentDb()

  strSQL = "SELECT [niveauer_vs_proevninger].[antal], [niveauer_vs_proevninger].[art], [niveauer_vs_proevninger].[proevning_type] FROM [niveauer_vs_proevninger] WHERE [niveauer_vs_proevninger].[niveau] = " & Me.List19.Value & " AND [niveauer_vs_proevninger].[SBC] IN (" & strSQL & ")"
  Set Def = DB.QueryDefs(strSQL)
  Set Rs = Def.openRecordset(dbOpenDynaset)

Men jeg får forskellige fejl når jeg prøver dette:
DB As Database giver den en fejl: User-Defined type not defined

Og det får jeg også på både QueryDefs og recordset.

Men jeg er temmelig grøn i access (har ellers kun brugt det til ASP, så håber på hjælp :-)

Mvh. Jens