Hjælp til fejl meddelse!!!

Jeg har fået lavet en meget fin database program i VB 6.0, den søger efter alle dens data i en Access 2000 database... MEN!!

jeg har lavet en lille varegruppe oversigt, hvor man kan se hvilke varer en bestem kunde har bestilt....

Når man står på den kunde man nu end vil se lidt på, trykker man på en knap og den går ind og kigger på kundens "KONTONUMMER" og finder alle de data der er koblet op til denne kunde....MEN!!!

Hvis jeg ikke at disse kundeoplysninger, så er kunden ikke oprettet i databasen... og så kommer programmet med en fejl!!

Koden er her:
-------------------------------------------------
Private Sub Command2_Click()
VaregruppeOversigt.Show

If VaregruppeOversigt.ListVaregruppe.ListCount = 0 Then
MsgBox "Der er ikke nogen varegrupper på denne kunde"
recRecordset.MoveNext
End If
End Sub
-------------------------------------------------

Og selve form_load koden er her:
-------------------------------------------------
Private Sub Form_Load()
Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\Data.mdb")
strSQL = "SELECT * FROM subtotal WHERE konto Like '*" & Kartotek.konto.Text & "*' AND måned LIKE '*" & Måned.Text & "*'"
Set recRecordset = datDB.OpenRecordset(strSQL)

Subtotalomsætning.Text = recRecordset("Omsætning") & ""
SubtotalDB.Text = recRecordset("DB") & ""
SubtotalDG.Text = recRecordset("DG") & ""
Debitor.Text = recRecordset("debitor") & ""

Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\data.mdb")
strSQL = "SELECT DISTINCT varegruppe FROM varegrupper" & ""
Set recRecordset = datDB.OpenRecordset(strSQL)
ListVaregruppe.Clear
Do Until recRecordset.EOF
Debug.Print ">" & recRecordset("Varegruppe") & "<"
recRecordset.MoveNext
Loop

Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\data.mdb")
strSQL = "SELECT Måneder FROM Måneder" & ""
Set recRecordset = datDB.OpenRecordset(strSQL)
Do Until recRecordset.EOF
Måned.AddItem recRecordset("Måneder") & ""
recRecordset.MoveNext
Loop

Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\data.mdb")
If Trim$(Måned.Text) <> "" Then
strSQL = "SELECT distinct * FROM KVJAN WHERE Konto Like '" & Kartotek.konto.Text & "'AND Måned LIKE '" & Måned.Text & "'"
Else
strSQL = "SELECT distinct varegruppe FROM KVJAN WHERE Konto Like '" & Kartotek.konto.Text & "'"
End If
Set recVaregruppe = datDB.OpenRecordset(strSQL)
ListVaregruppe.Clear
Do While Not recVaregruppe.EOF
ListVaregruppe.AddItem recVaregruppe("varegruppe") & ""
recVaregruppe.MoveNext
Loop
UpdateFelter
End Sub
-------------------------------------------------
Er der nogen der kan hjælpe mig????