Boa noite,

 

Estou desenvolvendo um aplicativo, mas gostaria que os as informações do banco de dados fossem visualizadas quando o formulario for carregado. Se alguém tem algum exemplo de como eu poderia fazer isso ficarei muito agradecido.

 

Obrigado

 

segue o código do form:

 

Dim incluir As Boolean

Private Sub cmdanterior_Click()
    rsclientes.MovePrevious
End Sub

Private Sub cmdeditar_Click()
    rsclientes.Edit
End Sub

Private Sub cmdexcluir_Click()
    rsclientes.Delete
End Sub

Private Sub cmdfechar_Click()
    Unload frmClientes
End Sub

Private Sub cmdnovo_Click()
   
    incluir = True
    rsclientes.AddNew
    cmdnovo.Visible = False
    cmdexcluir.Visible = False
    cmdsalvar.Visible = True
    cmdeditar.Visible = True
   
    'abilita a edição de campos do form
    txtcodigo.Enabled = True
    txtnome.Enabled = True
    txtendereco.Enabled = True
    txtcpf.Enabled = True
    txtbairro.Enabled = True
    txtcidade.Enabled = True
    txtuf.Enabled = True
    txttelefone.Enabled = True
    txtcelular.Enabled = True
    txtcep.Enabled = True
    txtcodigo.SetFocus
      
End Sub

Private Sub cmdproximo_Click()
    rsclientes.MoveNext
End Sub

Private Sub cmdsalvar_Click()
  
    If incluir = True Then
        rsclientes.AddNew
        rsclientes("codigo") = txtcodigo.Text
        rsclientes("nome") = txtnome.Text
        rsclientes("endereco") = txtendereco.Text
        rsclientes("cpf") = txtcpf.Text
        rsclientes("bairro") = txtbairro.Text
        rsclientes("cidade") = txtcidade.Text
        rsclientes("uf") = txtuf.Text
        rsclientes("cep") = txtcep.Text
        rsclientes("telefone") = txttelefone.Text
        rsclientes("celular") = txtcelular.Text
        rsclientes.Update
        cmdnovo.Visible = True
        cmdexcluir.Visible = True
        cmdsalvar.Visible = False
        cmdeditar.Visible = False
    ElseIf incluir = False Then
        rsclientes("codigo") = txtcodigo.Text
        rsclientes("nome") = txtnome.Text
        rsclientes("endereco") = txtendereco.Text
        rsclientes("cpf") = txtcpf.Text
        rsclientes("bairro") = txtbairro.Text
        rsclientes("cidade") = txtcidade.Text
        rsclientes("uf") = txtuf.Text
        rsclientes("cep") = txtcep.Text
        rsclientes("telefone") = txttelefone.Text
        rsclientes("celular") = txtcelular.Text
        rsclientes.Update
        cmdnovo.Visible = True
        cmdexcluir.Visible = True
        cmdsalvar.Visible = False
        cmdeditar.Visible = False
End If

End Sub

Private Sub Form_Load()
    frmClientes.Width = 11300
    frmClientes.Height = 9000
   
    'desabilita os campos do form
    txtcodigo.Enabled = False
    txtnome.Enabled = False
    txtendereco.Enabled = False
    txtcpf.Enabled = False
    txtbairro.Enabled = False
    txtcidade.Enabled = False
    txtuf.Enabled = False
    txttelefone.Enabled = False
    txtcelular.Enabled = False
    txtcep.Enabled = False
   
End Sub