Update Employee Set Phone = ""

strSQL = "Update [Employee] Set First_Name = @FName, Last_Name = @LName  Where Employee_ID =  @Id"

    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim myTransaction As System.Data.OleDb.OleDbTransaction
 
        Try
 
            ' Declares connection and variables and opens connection to database
            Dim conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=C:\Users\Christopher Carr\Documents\Visual Studio 2008\WebSites\MYTPSS new\App_Data\tpsDatabase.accdb")
            conn.Open()
            Dim command As OleDbCommand = conn.CreateCommand()
            Dim strSQL As String
 
            ' Adds and New Transaction
            myTransaction = conn.BeginTransaction
 
            ' Sets what strSQL display value is
            strSQL = "Update Employee Set First_Name = @FirstName, Last_Name = @LastName, Phone = @Phone, E-mail = @Email, Address = @Address, Availability = @Availability Where Employee_ID = @EmployeeID"
 
            ' Gets a value indicating how the CommandText property is to be interpreted and CommandText is set equal to the strSQL value
            command.CommandType = CommandType.Text
            command.CommandText = strSQL
 
            ' Starts the transaction
            command.Transaction = myTransaction
 
            command.Parameters.AddWithValue("@FirstName", txtFirstName.Text)
            command.Parameters.AddWithValue("@LastName", txtLastName.Text)
            command.Parameters.AddWithValue("@Phone", txtPhone.Text)
            command.Parameters.AddWithValue("@Email", txtEmail.Text)
            command.Parameters.AddWithValue("@Address", txtAddress.Text)
            command.Parameters.AddWithValue("@Availability", txtAvailability.Text)
            command.Parameters.AddWithValue("@EmployeeID", CInt(txtStaffID.Text))
 
            ' Performs the cataloging operations for update, insert and delete statements
            command.ExecuteNonQuery()
 
            ' Commits or saves transaction to the database
            myTransaction.Commit()
 
            ' Closes the connection to the database
            conn.Close()
 
            lblError.Text = "Your profile was successfully updated."
 
 
 
        Catch ex As Exception
 
 
            lblError.Text = ex.Message
            myTransaction.Rollback()
 
        End Try
 
    End Sub

Dim command As OleDbCommand = new oledbcommand
command.Connection = conn