ola pessoal

tenho a seguinte função para combobox comforme segue abaixo que funciona perfeitamente

no access 97, mas quando utilizo para o access 2003 só o combo box funciona, as variaveis

que deveriam ser inseridas nos textbox não aparecem

Como poderia fazer esta função funcionar no  access2003?

obrigado

luiz

Private Sub Form_Load()

Dim db As Database

Dim rs As Recordset

Dim dbname As String

 ' Open the database.

    'dbname = App.Path

    'If Right$(dbname, 1) <> "" Then dbname = dbname & ""

    'dbname = dbname & "bdktel.mdb"

    Set db = OpenDatabase("bdktel.mdb")

    Set rs = db.OpenRecordset( _

        "SELECT campo1 FROM tblteste ORDER BY campo1", _

        dbOpenSnapshot)

 ' Load the ComboBox.

    rs.MoveMin

    Do While Not rs.EOF

        cboName.AddItem rs!campo1

        rs.MoveNext

        Loop

    rs.Close

    db.Close

   ' Connect the Data control to the database.

    DatPeople.DatabaseName = dbname

    ' Select the Min choice.

    cboName.ListIndex = 0

End Sub