[RESOLVED] Updating fields in a database

[simon ong]

Option Explicit
Private cn As New ADODB.Connection
Private rst As New ADODB.RecordSet
 
Private Sub cmdContinuar_Click()
    
    With rst
        .AddNew
        .Fields("data_inicio") = txtDInicial.Text
        .Fields("data_fim") = txtDFinal.Text
        .Update
    End With
End Sub
 
 
Private Sub Form_Load()
 
    Dim Connectionstring As String
    
    Set cn = New ADODB.Connection
    Set rst = New ADODB.RecordSet
    rst.CursorLocation = adUseClient
    
    'Make Sure your Database Path is correct
    Connstring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1.mdb;Persist Security Info=False"
       
   
    cn.Open Connstring
    
    'Assuming Semana is a Database Table form bd1.mdb
   
    rst.Open "Semana", cn, adOpenStatic, adLockOptimistic, adCmdTable
    
    txtDInicial.Text = rst.Fields("data_inicio")
    txtDFinal = rst.Fields("data_fim")
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
   cn.Close
   rst.Close
   Set rst = Nothing
   Set cn = Nothing
 
End Sub
 
Private Sub RSTMoveNxt_Click()
rst.MoveNext
If rst.EOF Then rst.MoveLast
txtDInicial.Text = rst.Fields("data_inicio")
txtDFinal.Text = rst.Fields("data_fim")
End Sub
 
Private Sub RstMovePrev_Click()
rst.MovePrevious
If rst.BOF Then rst.MoveFirst
txtDInicial.Text = rst.Fields("data_inicio")
txtDFinal.Text = rst.Fields("data_fim")
 
End Sub

This shuould Work.