Нужны две формы для добавления, удаления и редактирования данных БД MS Access

'Добавление данных в форму
Private Sub Кнопка35_Click()
Dim a(1000) As String, i, j As Integer
    namisk = Array("[DMI]", "[Системная плата]", "[Видео Windows]")
    With Application.FileDialog(1)
        .Title = "Выбор файлов с тех-данными"
        .InitialFileName = CurrentProject.Path
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "ini", "*.ini", 1
        i = .Show
        If i = 0 Then Exit Sub
        For k = 1 To .SelectedItems.Count
            FName = Trim(.SelectedItems.Item(k))
            Open FName For Input As #1
            b = 0
            j = 0
            Do While Not EOF(1)
                Line Input #1, s
                j = j + 1
                a(j) = s
            Loop
            For i = 1 To j
                If namisk(0) = a(i) Then
                    a(i + 2) = Mid(a(i + 2), InStr(1, a(i + 2), "= ") + 2, Len(a(i + 2)))
                    Процессор_Производитель.SetFocus
                    Процессор_Производитель.Text = a(i + 2)
                    a(i + 3) = Mid(a(i + 3), InStr(1, a(i + 3), "= ") + 2, Len(a(i + 3)))
                    Версия.SetFocus
                    Версия.Value = a(i + 3)
                    a(i + 4) = Mid(a(i + 4), InStr(1, a(i + 4), "= ") + 2, Len(a(i + 4)))
                    ТипРазъёма.SetFocus
                    ТипРазъёма.Value = a(i + 4)
                End If
                If namisk(1) = a(i) Then
                    a(i + 2) = Mid(a(i + 2), InStr(1, a(i + 2), "= ") + 2, Len(a(i + 2)))
                    СистемнаяПлата_Производитель.SetFocus
                    СистемнаяПлата_Производитель.Value = a(i + 2)
                    a(i + 3) = Mid(a(i + 3), InStr(1, a(i + 3), "= ") + 2, Len(a(i + 3)))
                    СистемнаяПлата.SetFocus
                    СистемнаяПлата.Value = a(i + 3)
                    a(i + 4) = Mid(a(i + 4), InStr(1, a(i + 4), "= ") + 2, Len(a(i + 4)))
                    СерийныйНомер.SetFocus
                    СерийныйНомер.Value = a(i + 4)
                End If
                If namisk(2) = a(i) Then
                    If Mid(a(i + 3), InStr(1, a(i + 3), "= ") + 2, 5) = "Intel" Then
                        a(i + 5) = Mid(a(i + 5), InStr(1, a(i + 5), "= ") + 2, Len(a(i + 5)))
                        Название.SetFocus
                        Название.Value = a(i + 5)
                        a(i + 4) = Mid(a(i + 4), InStr(1, a(i + 4), "= ") + 2, Len(a(i + 4)))
                        ОбьёмПамяти.SetFocus
                        ОбьёмПамяти.Value = a(i + 4)
                    Else
                        a(i + 3) = Mid(a(i + 3), InStr(1, a(i + 3), "= ") + 2, Len(a(i + 3)))
                        Название.SetFocus
                        Название.Value = a(i + 3)
                        a(i + 2) = Mid(a(i + 2), InStr(1, a(i + 2), "= ") + 2, Len(a(i + 2)))
                        ОбьёмПамяти.SetFocus
                        ОбьёмПамяти.Value = a(i + 2)
                    End If
                End If
                
            Next
            Close #1
        Next k
    End With
End Sub

'Добавление данных из формы в таблицы по условиям
Private Sub Кнопка53_Click()
Dim sql
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim f, r, k As String
СистемнаяПлата_Производитель.SetFocus
f = СистемнаяПлата_Производитель.Text
Процессор_Производитель.SetFocus
r = Процессор_Производитель.Text
Название.SetFocus
k = Название.Text
ПолеСоСписком36.SetFocus
q = ПолеСоСписком36.Value
If Len(f) > 0 Then
    sql = "select Вид, СрокГодности from Устройства WHERE Тип = 1"
    Set rst = CurrentDb.OpenRecordset(sql)
    s = rst!Вид
    g = rst!СрокГодности
    rst.Close
    sql = "select Max(КодУстройства) from СистемнаяПлата"
    Set rst = CurrentDb.OpenRecordset(sql)
    t = rst.Fields(0).Value
    rst.Close
    sql = "select СистемнаяПлата from СистемнаяПлата Where КодУстройства=" & t
    Set rst = CurrentDb.OpenRecordset(sql)
    z = rst.Fields(0).Value
    rst.Close
    Set db = Access.CurrentDb
    Set rst = db.OpenRecordset("Срок")
    With rst
    .AddNew
    !КодКомпьютера = q
    !Вид = s
    !Название = z
    !КодУстройства = t
    !ДатаУстановки = Now
    !СрокГодности = g
    !КонецЭксплуатации = DateAdd("yyyy", g, Now)
    .Update
    End With
    rst.Close
End If
If Len(r) > 0 Then
    sql = "select Вид, СрокГодности from Устройства WHERE Тип = 2"
    Set rst = CurrentDb.OpenRecordset(sql)
    s = rst!Вид
    g = rst!СрокГодности
    sql = "select Max(КодУстройства) from Процессор"
    Set rst = CurrentDb.OpenRecordset(sql)
    t = rst.Fields(0).Value
    rst.Close
    sql = "select Версия from Процессор Where КодУстройства=" & t
    Set rst = CurrentDb.OpenRecordset(sql)
    z = rst.Fields(0).Value
    rst.Close
    Set db = Access.CurrentDb
    Set rst = db.OpenRecordset("Срок")
    With rst
    .AddNew
    !КодКомпьютера = q
    !Вид = s
    !Название = z
    !КодУстройства = t
    !ДатаУстановки = Now
    !СрокГодности = g
    !КонецЭксплуатации = DateAdd("yyyy", g, Now)
    .Update
    End With
    rst.Close
End If
If Len(k) > 0 Then
    sql = "select Вид, СрокГодности from Устройства WHERE Тип = 3"
    Set rst = CurrentDb.OpenRecordset(sql)
    s = rst!Вид
    g = rst!СрокГодности
    sql = "select Max(КодУстройства) from Видеоадаптер"
    Set rst = CurrentDb.OpenRecordset(sql)
    t = rst.Fields(0).Value
    rst.Close
    sql = "select Название from Видеоадаптер Where КодУстройства=" & t
    Set rst = CurrentDb.OpenRecordset(sql)
    z = rst.Fields(0).Value
    rst.Close
    Set db = Access.CurrentDb
    Set rst = db.OpenRecordset("Срок")
    With rst
    .AddNew
    !КодКомпьютера = q
    !Вид = s
    !Название = z
    !КодУстройства = t
    !ДатаУстановки = Now
    !СрокГодности = g
    !КонецЭксплуатации = DateAdd("yyyy", g, Now)
    .Update
    End With
    rst.Close
End If
    
End Sub

поле.FormatConditions.Add acExpression,.....
поле.FormatConditions(0).BackColor = ....

If ..... Then
 поле.BackColor = ....
Else
 поле.BackColor = ....
End If

date_so.FormatConditions.Add acExpression, acGreaterThanOrEqual, DateDiff("m", date_so, Date), 6
date_so.FormatConditions.Add acLess, DateDiff("m", date_so, Date), 6
date_so.FormatConditions(0).BackColor = vbGreen
date_so.FormatConditions(1).BackColor = vbRed