Sætte værdi i tekstbox dynamisk

Jeg prøver at sætte en værdi i en tekstbox dynamisk. Jeg kan se, at jeg får værdien med, for jeg kan lave en msgbox(RS.Fields(0)) med den rigtige værdi. Jeg bruger nedenstående kode, men der sker ingenting. Nogen forslag ?

Public Sub populate_rediger(personnr As Integer)
    SQLstring = \"SELECT * FROM TOFKAI WHERE personnummer=\" & CStr(personnr) & \";\"
    Set RS = Data1.Database.OpenRecordset(SQLstring)
    opret_txt(0).Text = RS.Fields(0)
End Sub