Как редактировать в DataGrid

Private Sub Command1_Click(Index As Integer)
Select Case Index
 
Case 1 'редактировать
Combo1.Text = DataGrid1.Columns(1).Text
Text1.Text = DataGrid1.Columns(2).Text
Call dat
End Select
End Sub
 
Case 2 'сохранить
If Text1.Text = Empty Then
        MsgBox "Введите наименование предмета", vbApplicationModal, "Ошибка"
        Exit Sub
    ElseIf Combo1.Text = Empty Then
        MsgBox "Введите ФИО преподавателя", vbApplicationModal, "Ошибка"
        Exit Sub
End If
Call save ' сохранение
Form_Activate
End Select
End Sub
 
Public Sub save() ' сохранение
r_predmet(2) = Text1.Text
For i = 0 To Combo1.ListCount - 1 'отделение
    If Combo1.Text = Combo1.List(i) Then
        r_predmet(1) = Combo1.ItemData(i)
        Exit For
    End If
Next
r_predmet.Update
End Sub
 
Public Sub dat() ' просмотр полей в DataGrid
 Set DataGrid1.DataSource = r_prospredmet
    DataGrid1.Refresh
    DataGrid1.HeadFont.Bold = True
    DataGrid1.HeadFont.Name = "Times New Roman"
    DataGrid1.Font.Name = "Times New Roman"
    DataGrid1.Font.Size = 10
    
    DataGrid1.Columns(0).Caption = "ID"
    DataGrid1.Columns(0).Width = 700
    DataGrid1.Columns(0).Alignment = dbgCenter
    
    DataGrid1.Columns(1).Caption = "ФИО преподавателя"
    DataGrid1.Columns(1).Width = 3000
    DataGrid1.Columns(1).Alignment = dbgLeft
    
    DataGrid1.Columns(2).Caption = "Предмет"
    DataGrid1.Columns(2).Width = 2500
    DataGrid1.Columns(2).Alignment = dbgLeft
End Sub