Структура: Вывод на экран информации о человеке, номер телефона которого введен с клавиатуры - VB

Option Explicit
 
Dim WithEvents ch As CheckBox
Dim WithEvents tx1 As TextBox, WithEvents tx2 As TextBox
Dim WithEvents dt As Data
Dim WithEvents bt1 As CommandButton, WithEvents bt2 As CommandButton, WithEvents bt3 As CommandButton, WithEvents bt4 As CommandButton
 
Const r& = 90
Dim l&, t&, w&, h&
 
Private Sub bt1_Click()
    'Комманда SQL
    'Выбранны будут те детали, которые есть на складе
    dt.RecordSource = "Select*from parts where Instock=True"
    dt.Refresh
End Sub
 
Private Sub bt2_Click()
    dt.Recordset.AddNew
    dt.UpdateRecord
    dt.Recordset.MoveLast
End Sub
 
Private Sub bt3_Click()
    dt.Recordset.Delete
    dt.UpdateRecord
    dt.Recordset.MovePrevious
End Sub
 
Private Sub bt4_Click()
    Dim l&, t&
    l = Left: t = Top
    Unload Me
    Load Me
    Left = l: Top = t: Visible = 1
End Sub
 
Private Sub dt_Reposition()
    tx1 = "": tx2 = "": ch = 0
    On Error Resume Next
    tx1 = dt.Recordset.Fields(0)
    tx2 = dt.Recordset.Fields(1)
    ch = Abs(dt.Recordset.Fields(2))
End Sub
 
Private Sub Form_Load()
    Dim v: For Each v In Controls: v.Visible = 0: Next ''''''''''''''''''''
    ChDir App.Path
    l = r: t = r: w = r * 21: h = r * 3
    Set ch = Controls.Add("vb.CheckBox", "ch"): With ch
        .Move l, t, w, h: t = t + h + r
        .Caption = "Наличие на складе"
        .Visible = 1
    End With
    With Controls.Add("vb.label", "lb1")
        .Move l, t, w, h: l = l + w + r
        .Caption = "Деталь"
        .Visible = 1
    End With
    Set tx1 = Controls.Add("vb.TextBox", "tx1"): With tx1
        .Move l, t, w, h: t = t + h + r: l = r
        .Visible = 1
    End With
    With Controls.Add("vb.label", "lb2")
        .Move l, t, w, h: l = l + w + r
        .Caption = "Характеристики"
        .Visible = 1
    End With
    Set tx2 = Controls.Add("vb.TextBox", "tx2"): With tx2
        .Move l, t, w, h: t = t + h + r: l = r
        .Visible = 1
    End With
    Set dt = Controls.Add("vb.Data", "dt"): With dt
        .Move l, t, r * 43, h: t = t + h + r: l = r
        .DatabaseName = "Stock.mdb": .Caption = .DatabaseName
        .RecordSource = "Parts"
        .ToolTipText = "Используемый файл базы данных"
        .Refresh
        .Visible = 1
    End With
    w = r * 10: h = r * 5
    Set bt1 = Controls.Add("vb.CommandButton", "bt1"): With bt1
        .Move l, t, w, h: l = l + w + r
        .Caption = "Выборка"
        .ToolTipText = "Выбранны будут те детали, которые есть на складе"
        .Visible = 1
    End With
    Set bt2 = Controls.Add("vb.CommandButton", "bt2"): With bt2
        .Move l, t, w, h: l = l + w + r
        .Caption = "Добавить запись"
        .Visible = 1
    End With
    Set bt3 = Controls.Add("vb.CommandButton", "bt3"): With bt3
        .Move l, t, w, h: l = l + w + r
        .Caption = "Удалить запись"
        .Visible = 1
    End With
    Set bt4 = Controls.Add("vb.CommandButton", "bt4"): With bt4
        .Move l, t, w, h: l = l + w + r
        .Caption = "Пере - запуск"
        .Visible = 1
    End With
    Caption = "Работа с данными"
End Sub
Private Sub Validate()
    On Error Resume Next
    dt.Recordset.Edit
    dt.Recordset.Fields(0).Value = tx1
    dt.Recordset.Fields(1).Value = tx2
    dt.Recordset.Fields(2).Value = ch
    dt.Recordset.Update
End Sub
 
Private Sub Form_Resize()
    On Error Resume Next
    If Me.WindowState = 2 Then Me.WindowState = 0
    Me.Width = bt4.Left + r * 15
    Me.Height = bt4.Top + r * 15
End Sub
 
Private Sub dt_Validate(Action As Integer, Save As Integer): Validate: End Sub
Private Sub tx1_Validate(Cancel As Boolean): Validate: End Sub
Private Sub tx2_Validate(Cancel As Boolean): Validate: End Sub
Private Sub ch_Validate(Cancel As Boolean): Validate: End Sub