corrige mon code svp

bonjour, voila mon probleme je tourne dans le vide depuis des jours. j ai fait une procedure en change d un DBCombo pour qu il m 'affiche tout les sous familles d 'une famille selectionnée dans le DBCombo

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'***************voila le code source
Private Sub DBCobfam_Change()
Dim strTmp As String
Dim rstTmp As Recordset
Dim j As Integer
Dim jmax As Integer
 
strTmp = "SELECT * FROM sousfamille  WHERE fam = " & Chr(34) & (DBCobfam.Text) & Chr(34)
    Debug.Print strTmp
    Set rstTmp = dbsBase.OpenRecordset(strTmp)
 
    If rstTmp.RecordCount <> 0 Then
        rstTmp.MoveLast
        rstTmp.MoveFirst
        jmax = rstTmp.RecordCount
 
         For j = 1 To jmax
                DBCobssfam.Text = rstTmp.Fields(0)
                Debug.Print rstTmp(0)
                rstTmp.MoveNext
        Next j
     End If
End Sub
'*********************

j'attend votre réponse
il me ramane qu une seul valeur l erreur elle est au niveau de

Code:

DBCobssfam.Text = rstTmp.Fields(0)

merci d'avance