Aqui eu consegui eis a solução, para resolver seu problema, criei uma tabela igual a sua
copiei seu código e consegui veja como fiz desde o inicio
primeiro fiz a conexão desta forma:
no general do form coloquei
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:\Documents _
and Settings\Marcelo13\Meus documentos\testecabeca.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 Funcionario", CNN
ListView1.ColumnHeaders.Add , , "Coluna1"
ListView1.ColumnHeaders.Add , , "Coluna3" '
ListView1.ColumnHeaders.Add , , "Coluna4"
ListView1.ColumnHeaders.Add , , "Coluna5"
ListView1.ColumnHeaders.Add , , "Coluna6"
ListView1.ColumnHeaders.Add , , "Coluna7"
ListView1.ColumnHeaders.Add , , "Coluna8"
ListView1.ColumnHeaders.Add , , "Coluna9"
ListView1.ColumnHeaders.Add , , "Coluna10"
Do While Not RST.EOF
Set itmx = ListView1.ListItems.Add(, , RST("Cod_fun"))
itmx.SubItems(1) = "" & RST("Nome_fun")
itmx.SubItems(2) = "" & RST("Endereco_fun")
itmx.SubItems(3) = "" & RST("ComplEnd_fun")
itmx.SubItems(4) = "" & RST("Cep_fun")
itmx.SubItems(5) = "" & RST("Bairro_fun")
itmx.SubItems(6) = "" & RST("Cidade_fun")
itmx.SubItems(7) = "" & RST("Telefone_fun")
itmx.SubItems(8) = "" & RST("Celular_fun")
RST.MoveNext
Loop
End Sub
aqui funcionou lembrando, que abri o banco de dados que criei aqui! "testecabeca.mdb" a tabela é igual a sua "funcionario" .
boa sorte poste e diga se funcionou com você
