dim rs as adodb.recordset
      set rs=new adodb.recordset
      rs.Open  "bla bla bla" 
      Set txtFilmNr.DataSource = rs
      Set ctlArtikelName.DataSource = rs 
      Set txtFilmTitel.DataSource = rs
      Set ctlPreis.DataSource = rs
      Set txtDatum.DataSource = rs

       txtFilmNr.Datafield= "Field1" 
       ctlArtikelName.Datafield= "Field2" 
       txtFilmTitel.Datafield= "Field3" 
       ctlPreis.Datafield= "Field4" 
       txtDatum.Datafield= "Field5" 
       
       rs.movenext