¿Cuál es el código para consultar, agregar, eliminar y modificar registros de la base de datos ACCESS usando VB?

El programa del botón "Modificar"\x0d\Private Sub cmdEdit_Click() \x0d\sql = "seleccione * de las estadísticas de tiempo de parada donde fecha = cdate('" & Text8.Text & "') y ycqk = '" & Combo1.Text & "'y id = '" & DataGrid1.Columns(2).CellText(DataGrid1.Bookmark) & "'" \x0d\rs.Open sql, dm, adOpenDynamic, adLockOptimistic \x0d\ rs .Fields("id") = Texto7.Texto \x0d\rs.Fields("ycqk") = Combo1.Texto \x0d\rs.Fields("fecha1") = Texto1.Texto \x0d\rs.Fields(" tiempo1 ") = Texto2.Text \x0d\rs.Fields("fecha2") = Texto3.Text \x0d\rs.Fields("tiempo2") = Texto4.Text \x0d\rs.Update \x0d\rs.Close \ x0d \End Sub \x0d\\x0d\'Programa para el botón "Eliminar"\x0d\Private Sub cmdDelete_Click() \x0d\strFCode = DataGrid1.Columns(0).CellText(DataGrid1.Bookmark) \x0d\strSCode = DataGrid1. Columns (2).CellText(DataGrid1.Bookmark) \x0d\strCCode = DataGrid1.Columns(1).CellText(DataGrid1.Bookmark) \x0d\sql = "seleccione * de las estadísticas de tiempo de parada donde fecha='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'" \x0d\rs.Open sql, dm, adOpenDynamic, adLockOptimistic \x0d\rs.Delete \x0d\rs.Update \x0d \rs .Close \x0d\End Sub \x0d\\x0d\'Programa para el botón "Agregar"\x0d\Private Sub Command1_Click() \x0d\sql = "seleccionar * del orden de estadísticas de tiempo de parada por id" \x0d\rs .Open sql, dm, adOpenDynamic, adLockOptimistic \x0d\rs.AddNew \x0d\rs.Fields("fecha") = Fecha \x0d\rs.Fields("id") = Texto7.Text - 1 \x0d\rs. Campos( "ycqk") = Combo1.Text \x0d\rs.Fields("fecha1") = Texto1.Text \x0d\rs.Fields("hora1") = Texto2.Text \x0d\rs.Fields("fecha2" ) = Texto3.Texto \x0d\rs.Fi

campos("time2") = Text4.Text \x0d\rs.Update \x0d\rs.Close \x0d\\x0d\With Adodc1 \x0d\Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Fuente de datos =" & App.Path & "\db1.mdb;Persist Security Info=False" \x0d\Adodc1.RecordSource = "seleccione * de las estadísticas de tiempo de parada donde fecha = cdate('" & Text8.Text & "') y ycqk = '" & Combo1.Text & "' ordenar por id" \x0d\Adodc1.Refresh \x0d\DataGrid1.Refresh \x0d\End With \x0d\End Sub