Rilton, veja se a instrução abaixo resolve :
Sub CarregaRegistros()
With banco
'Verificamos se está Vazio e saimos da rotina
If .RecordCount = 0 Then
Exit Sub
End If
Me.txtCodigo.Text = .Fields(0)
Me.txtEstrutura.Value = .Fields(1)
Me.txtdescricaoservico.Value = .Fields(2)
Me.txtSituacao.Value = .Fields(3)
End With
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/11/2012 9:13 am