DUVIDA VB EXCEL

  Dim oConn As ADODB.Connection
Dim oCmd As ADODB.Command
Dim oRS As ADODB.Recordset

Private Sub preenche_controles()
    
    Text1.Text = oRS(0)         [ô]Coluna A
    Text2.Text = oRS(1)         [ô]Coluna B
    Text3.Text = oRS(2)         [ô]Coluna C
    
End Sub

Private Sub Command3_Click()
    [ô] limpa as caixas de texto
    Text1.Text = [Ô][Ô]
    Text2.Text = [Ô][Ô]
    Text3.Text = [Ô][Ô]
    Command3.Enabled = False
End Sub

Private Sub Command4_Click()
    [ô]inclui o registro na planilha
    oRS.AddNew
    oRS(0).Value = Text3.Text [ô]Coluna A
    oRS(1).Value = Text1.Text [ô]Coluna A
    oRS(2).Value = Text2.Text [ô]Coluna A
    oRS.Update
    Command3.Enabled = True
    preenche_controles
End Sub
Private Sub Command1_Click()
    oRS.MovePrevious
    preenche_controles
End Sub

Private Sub Command2_Click()
    oRS.MoveNext
    preenche_controles
End Sub

Private Sub Command7_Click()
    oRS.MoveLast
    preenche_controles
End Sub

Private Sub Command8_Click()
    oRS.MoveFirst
    preenche_controles
End Sub

Private Sub Form_Load()
    [ô] abre uma conexao com a planilha excel
    Set oConn = New ADODB.Connection
    oConn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
    [Ô]Data Source=[Ô] & App.Path & [Ô]\Rel250301a.xls;[Ô] & _
    [Ô]Extended Properties=[Ô][Ô]Excel 8.0;HDR=Yes;[Ô][Ô];[Ô]
    
    [ô] cria o objecto command e define a conexao ativa
    Set oCmd = New ADODB.Command
    oCmd.ActiveConnection = oConn
    
    [ô] abre a planilha
    oCmd.CommandText = [Ô]SELECT * from [Plan1$][Ô]
    
    [ô] cria o recordset com os dados
    Set oRS = New ADODB.Recordset
    oRS.Open oCmd, , adOpenKeyset, adLockOptimistic
    
    [ô]exibe os dados
    preenche_controles
End Sub