leandroalvespires

Cara eu tb sou novo, mas consegui fazer isso, vou mandar meu exemplo, peguei de alguns forum e comecei a adaptar, caso tenha alguma duvida me made um email para podermos discutir, tb quero aprender mais, assim podemos dar uma ajuda um para o outro (meu email: leandroalvespires@hotmail.com). Boa sorte Abraço Private Sub CommandButton1_Click() Dim sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/manutencao/controlemanutencao.mdb" cn.Open Set rs = New ADODB.Recordset sql = "SELECT os,data,turno" sql = sql & " FROM (controlemanutencao)" rs.Open sql, cn i = 2 If Not rs.EOF Then Do While Not rs.EOF Range("A" & i).Value = rs(0) Range("B" & i).Value = rs(1) Range("C" & i).Value = rs(2) rs.MoveNext i = i + 1 Loop End If cn.Close End Sub