Controls Issues

Public Shared Function UpdateUniv(ByVal university As frmUnivEdit) As Boolean
        Dim connection As OleDbConnection = GetConnection()
        Dim updateStatement As String
        updateStatement = " UPDATE University SET website=?, address=?, state=?, zipcode=?, BOFmanager=?, phone=?, fax=? WHERE UnivName=?"
        Dim updateCommand As New OleDbCommand(updateStatement, connection)
        updateCommand.Parameters.AddWithValue("?", university.txtWebsite.Text.Trim)
        updateCommand.Parameters.AddWithValue("?", university.txtAddress.Text.Trim)
        updateCommand.Parameters.AddWithValue("?", university.cboState.SelectedItem)
        updateCommand.Parameters.AddWithValue("?", university.txtZipcode.Text.Trim)
        updateCommand.Parameters.AddWithValue("?", university.txtBOFmanager.Text.Trim)
        updateCommand.Parameters.AddWithValue("?", university.txtPhone.Text.Trim)
        updateCommand.Parameters.AddWithValue("?", university.txtFax.Text.Trim)
        Try
            connection.Open()
            Dim countUniv As Integer = updateCommand.ExecuteNonQuery
            If countUniv > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & vbCrLf & ex.StackTrace, ex.GetType().ToString())
            Return False
        Finally
            connection.Close()
        End Try
    End Function
 
 
 
 
Private Sub enableChangeMode()
        'Disable the Change button and enable the Update button
        btnChange.Enabled = False
        btnUpdate.Enabled = True
        'Disable all text boxes
        txtUniv.ReadOnly = True
        txtWebsite.ReadOnly = False
        txtAddress.ReadOnly = False
        cboState.Enabled = True
        txtZipcode.ReadOnly = False
        txtBOFmanager.ReadOnly = False
        txtPhone.ReadOnly = False
        txtFax.ReadOnly = False
    End Sub
 
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        If StudentDataClass.UpdateUniv(Me) Then
            MessageBox.Show("Record was updated in our database. ", "Database Information")
        Else
            MessageBox.Show("Unable to save the record. ", "Database Error")
        End If
        initialUnivFields()
    End Sub