Private Sub Form_Load()
    Do Until rsAlta.EOF
    Combo1.AddItem rsAlta("Alta")
    rsAlta.MoveNext
Loop
Adodc1.Refresh
End Sub

Option Explicit
Dim BaseDatos As Database
Dim tblAlta As TableDef
Dim rsAlta As Recordset
Private Sub cmdAceptar_Click()
DataGrid1.AllowUpdate = False
DataGrid1.AllowRowSizing = False
DataGrid1.AllowDelete = False
DataGrid1.AllowArrows = False
DataGrid1.AllowAddNew = False
cmdAceptar.Visible = False
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Combo1_Change()
Do Until rsAlta.EOF
    Combo1.AddItem , rsAlta("Alta")
    rsAlta.MoveNext
Loop
End Sub
Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command2_Click()
 If Not (Adodc1.Recordset.BOF And Adodc1.Recordset.EOF) Then
        If MsgBox("¿Está seguro de Eliminar esté Registro?", _
        vbQuestion + vbYesNo, "Eliminar Registro") = vbYes Then
             Adodc1.Recordset.Delete adAffectCurrent
             Adodc1.Refresh
        End If
    Else
        MsgBox "Para eliminar un registro ¿no hace falta uno? xD"
    End If
    Adodc1.Refresh
End Sub
Private Sub Command3_Click()
DataGrid1.AllowUpdate = True
DataGrid1.AllowRowSizing = True
DataGrid1.AllowDelete = True
DataGrid1.AllowArrows = True
DataGrid1.AllowAddNew = True
cmdAceptar.Visible = True
End Sub
Private Sub cmdAdd_Click()
    Adodc1.Recordset.AddNew
End Sub
Private Sub cmdDel_Click()
    Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Adodc1.BOFAction = adStayBOF
End Sub
Private Sub Command5_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command6_Click()
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.Refresh
End Sub

Option Explicit
Dim BaseDatos As Database
Dim tblAlta As TableDef
Dim rsAlta As Recordset

Private Sub Combo1_Change()
Set BaseDatos = OpenDatabase("I:\Visual Basic\Alex\Recuperacion\recuAC97")
Set tblAlta = OpenTable

End Sub