Datarepeater

Hej Alle

Jeg prøver at oprette en datarepeater, men er løbet ind i problemer.

Jeg har oprettet en User Control, som gøres til OCX, med følgende kode.

Private Sub UserControl_Initialize()
Dim Cnn As ADODB.Connection
Dim RSModul As ADODB.Recordset
Dim strModul As String

    Set Cnn = New ADODB.Connection
    Set RSModul = New ADODB.Recordset
   
    Cnn.Open "provider=microsoft.jet.oledb.4.0;" & _
            "Data source =D:\Documents and Settings\Administrator\Dokumenter\JBN-Design\proElevStyring\DB-proElevStyring.mdb"
           
    strModul = "SELECT tblModul.Tjnr, tblPeriode.Periode, tblPraktiksted.Praktiksted, tblModul.booBemærk" _
        & " FROM tblPraktiksted INNER JOIN (tblPeriode INNER JOIN tblModul ON tblPeriode.PeriodeID = tblModul.PeriodeID) ON tblPraktiksted.PraktikID = tblModul.PraktikID;"

    RSModul.Open strModul, Cnn, adOpenStatic, adLockOptimistic
   
    With txtPeriode
        Set .DataSource = RSModul
            .DataField = "Periode"
    End With
   
    With txtSted
        Set .DataSource = RSModul
            .DataField = "Praktiksted"
    End With
       
    With CheckBem
        Set .DataSource = RSModul
            .DataField = "booBemærk"
    End With
   
End Sub

Herefter opretter jeg et nyt standart project, med en Form hvorpå der er en DataRepeater, denne binder jeg til min OCX fil via. RepeatedControlName.

Når jeg stater min Form virker det ikke, hvad mangler jeg.