UTILIZANDO DAO

Private Sub Preencher_Produtos()

Dim db As  DAO.Database ‘ Esta seria a conexão com a base de dados

Dim daoprodutos As DAO.Recordset

Dim strSQL As String

strSQL = "Select prod_codig, prod_desig, prod_valunit from tPRODUTOS "

Set db = OpenDatabase(App.Path & "omedamdb.mdb")

Set daoprodutos= New DAO. Recordset

Set daoprodutos = db.OpenRecordset(strSQL, dbOpenDynaset)

If daoprodutos.RecordCount > 0 Then

    daoprodutos.MoveMin

    Do While Not daoprodutos.EOF

        CboProduto.AddItem daoprodutos("prod_desig")

        Next

        daoprodutos.MoveNext

  Loop

End If

‘Se reparar a recordset continua aberta

End Sub

Private Sub CboProduto _Click()

intContItem = CboProduto.Text

If daoprodutos.RecordCount > 0 Then

    daoprodutos.MoveMin

    Do While Not daoprodutos.EOF

    If CboProduto.Text = daoprodutos.("prod_desig") Then

        TxtProd_Valunit.Text = daoprodutos.("prod_valunit")

        Exit Sub

    End If

        daoprodutos.MoveNext

Loop

End If

‘aqui  a recordset é fechada e destruída

daoprodutos.Close

Set daoprodutos = Nothing

End Sub