no general do form coloque
Dim CNN As ADODB.Connection
Dim RST As ADODB.Recordset
agora no load do form:
Private Sub Form_Load()
Set CNN = New ADODB.Connection
Set RST = New ADODB.Recordset
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:caminho do seu banco de dados.mdb"
End Sub
e agora o código (bendito código)
este coloquei em botão commandbutton1
Private Sub Command1_Click()
RST.Open "select * from empresas ORDER BY razao", CNN
ListView1.ColumnHeaders.Add , , "Razão"
ListView1.ColumnHeaders.Add , , "CNPJ" '
ListView1.ColumnHeaders.Add , , "CPF"
ListView1.ColumnHeaders.Add , , "Codigo"
Do While Not RST.EOF
Set itmx = ListView1.ListItems.Add(, , RST("razao"))
itmx.SubItems(1) = "" & RST("cnpj")
itmx.SubItems(2) = "" & RST("cpf")
itmx.SubItems(3) = "" & RST("codigo")
RST.MoveNext
Loop
End Sub
boa sorte poste e diga se funcionou com você
