Private Sub Preencher_Produtos()

Dim db As  ADODB.Connection ‘ Esta seria a conexão com a base de dados

Dim adoprodutos As ADODB.Recordset

Dim base As string

Dim strSQL As String

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

base = App.Path  & "omedabasededados.mdb"

Set db = New ADODB.Connection

With db

    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .Properties("Data Source") = base

    .Properties("Jet OLEDB:Database Password") = "password"

    .Open

End With

Set adoprodutos= New Recordset

adoprodutos.Open strSQL, db, adOpenStatic, adLockOptimistic

If adoprodutos.RecordCount > 0 Then

    adoprodutos.MoveMin

    Do While Not adoprodutos.EOF

       For intcont = 0 To 14

        CboProduto(intcont).AddItem adoprodutos("prod_desig")

        Next

        adoprodutos.MoveNext

  Loop

End If

‘Se reparar a recordset continua aberta

End Sub

Private Sub CboProduto _Click(Index As Integer)

intContItem = CboProduto(Index).Index

If adoprodutos.RecordCount > 0 Then

    adoprodutos.MoveMin

    Do While Not adoprodutos.EOF

    If CboProduto(intContItem).Text = adoprodutos.("prod_desig") Then

        TxtProd_Valunit.Text = adoprodutos.("prod_valunit")

        Exit Sub

    End If

        adoprodutos.MoveNext

Loop

End If

‘aqui  a recordset é fechada e destruída

adoprodutos.Close

Set adoprodutos = Nothing

End Sub