Private Sub PopulaCidade()
Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim SQL As String
Dim EnderecoBD As String
EnderecoBD = [cBanco]
Set Conn = New ADODB.Connection
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & EnderecoBD & ""
.Open
End With
SQL = "SELECT DISTINCT NomeProduto FROM [TblProduto]"
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = Conn
.Open SQL, Conn, adOpenDynamic, _
adLockBatchOptimistic
End With
Do While Not rst.EOF
If Not IsNull(rst(0).Value) Then
lstNomeProduto.AddItem rst(0).Value
End If
rst.MoveNext
Loop
' Fecha o conjunto de registros.
Set rst = Nothing
' Fecha a conexão.
Conn.Close
End Sub
Editado pela última vez por andre220 em Qui Ago 02, 2018 2:03 am, em um total de 1 vez.
Caro andre220, fico feliz que tenha podido ajudar. Afinal, quando compartilhamos, multiplicamos e fazemos valer a pena o nosso conhecimento.
Não fosse pela generosidade dos muitos colegas aqui do fórum, eu não teria avançado tanto nos meus parcos conhecimentos. O mínimo que posso fazer é partilhar e ajudar outros colegas a se desenvolverem também.