VBA Excel Combobox Database (with errors)

Option Explicit

Dim blnNew As Boolean
Dim TRows, i As Long
Dim search As String



Private Sub cmdClose_Click()
    If cmdClose.Caption = "Close" Then
        Unload Me
    Else
        cmdClose.Caption = "Close"
        cmdNew.Enabled = True
        cmdDelete.Enabled = True

    End If
End Sub

Private Sub cmdDelete_Click()
    TRows = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
    Dim strDel
    strDel = MsgBox("Confirm Delete", vbYesNo, "Delete")
    If strDel = vbYes Then
        For i = 2 To TRows
            If Trim(Worksheets("Data").Cells(i, 1).Value) = Trim(ComboBox1.Text) Then

              '  Sheet1.Range(i & ":" & i).Delete
                Worksheets("Data").Range(i & ":" & i).Delete

                schoolName.Text = ""
                cityName.Text = ""
                countyName.Text = ""
                txtTel.Text = ""
                websiteName.Text = ""
                mathDept.Text = ""
                txtNotes.Text = ""
                Call prComboBoxFill

                Exit For
            End If
        Next i
        If Trim(ComboBox1.Text) = "" Then
            cmdSave.Enabled = False
            cmdDelete.Enabled = False
        Else
            cmdSave.Enabled = True
            cmdDelete.Enabled = True
        End If
        cmdNew.Enabled = True
        cmdClose.Caption = "Close"


    End If

    If Trim(schoolName.Text) = "" Then
        cmdSave.Enabled = False
        cmdDelete.Enabled = False
        Frame2.Enabled = False

    Else
        cmdSave.Enabled = True
        cmdDelete.Enabled = True
        Frame2.Enabled = True

    End If
End Sub

Private Sub cmdNew_Click()
    blnNew = True
    schoolName.Text = ""
    cityName.Text = ""
    countyName.Text = ""
    txtTel.Text = ""
    websiteName.Text = ""
    mathDept.Text = ""
    txtNotes.Text = ""

    cmdClose.Caption = "Cancel"
    cmdNew.Enabled = False
    cmdDelete.Enabled = False
    cmdSave.Enabled = True
    Frame2.Enabled = True
End Sub

Private Sub cmdSave_Click()
    If Trim(schoolName.Text) = "" Then
        MsgBox "Enter School Name.", vbCritical, "Save"
        schoolName.SetFocus
        Exit Sub
    End If
    Call prSave
    cmdClose.Caption = "Close"
    cmdNew.Enabled = True
    ThisWorkbook.Save

End Sub
Private Sub prSave()
     ''''' Save the Data
    If blnNew = True Then
        TRows = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
        With Worksheets("Data").Range("A1")
            .Offset(TRows, 0).Value = schoolName.Text
            .Offset(TRows, 1).Value = cityName.Text
            .Offset(TRows, 2).Value = countyName.Text
            .Offset(TRows, 3).Value = txtTel.Text
            .Offset(TRows, 4).Value = websiteName.Text
            .Offset(TRows, 5).Value = mathDept.Text
            .Offset(TRows, 6).Value = txtNotes.Text
         End With
            schoolName.Text = ""
            cityName.Text = ""
            countyName.Text = ""
            txtTel.Text = ""
            websiteName.Text = ""
            mathDept.Text = ""
            txtNotes.Text = ""
            Call prComboBoxFill
     Else
        For i = 2 To TRows
            If Trim(Worksheets("Data").Cells(i, 1).Value) = Trim(ComboBox1.Text) Then
                Worksheets("Data").Cells(i, 1).Value = schoolName.Text
                Worksheets("Data").Cells(i, 2).Value = cityName.Text
                Worksheets("Data").Cells(i, 3).Value = countyName.Text
                Worksheets("Data").Cells(i, 4).Value = txtTel.Text
                Worksheets("Data").Cells(i, 5).Value = websiteName.Text
                Worksheets("Data").Cells(i, 6).Value = mathDept.Text
                Worksheets("Data").Cells(i, 7).Value = txtNotes.Text
                schoolName.Text = ""
                cityName.Text = ""
                countyName.Text = ""
                txtTel.Text = ""
                websiteName.Text = ""
                mathDept.Text = ""
                txtNotes.Text = ""
                Exit For
            End If
        Next i
      End If
    blnNew = False

    If Trim(schoolName.Text) = "" Then
        cmdSave.Enabled = False
        cmdDelete.Enabled = False
        Frame2.Enabled = False
    Else
        cmdSave.Enabled = True
        cmdDelete.Enabled = True
        Frame2.Enabled = True
    End If
End Sub

Private Sub cmdSearch_Click()
    blnNew = False
    schoolName.Text = ""
    cityName.Text = ""
    countyName.Text = ""
    txtTel.Text = ""
    websiteName.Text = ""
    mathDept.Text = ""
    txtNotes.Text = ""

    search = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
    For i = 2 To TRows
        If Val(Trim(Worksheets("Data").Cells(i, 1).Value)) = Val(Trim(ComboBox1.Text)) Then

            schoolName.Text = Worksheets("Data").Cells(i, 1).Value
            cityName.Text = Worksheets("Data").Cells(i, 2).Value
            countyName.Text = Worksheets("Data").Cells(i, 3).Value
            txtTel.Text = Worksheets("Data").Cells(i, 4).Value
            websiteName.Text = Worksheets("Data").Cells(i, 5).Value
            mathDept.Text = Worksheets("Data").Cells(i, 6).Value
            txtNotes.Text = Worksheets("Data").Cells(i, 7).Value

            Exit For
        End If
    Next i
    If Trim(schoolName.Text) = "" Then
        cmdSave.Enabled = False
        cmdDelete.Enabled = False
        Frame2.Enabled = False
    Else
        cmdSave.Enabled = True
        cmdDelete.Enabled = True
        Frame2.Enabled = True
    End If
End Sub


Private Sub UserForm_Click()

End Sub
Private Sub prComboBoxFill()
    TRows = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
    ComboBox1.Clear
    For i = 2 To TRows
        ComboBox1.AddItem Worksheets("Data").Cells(i, 1).Value

    Next i
End Sub

Private Sub UserForm_Initialize()
    Call prComboBoxFill
    cmdSave.Enabled = False
    cmdDelete.Enabled = False
    Frame2.Enabled = False
End Sub