Private Sub BtnDelete3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete3.Click
Dim SqlDelete As String = "DELETE Picture FROM Employee"
SqlDelete &= " WHERE(IDEmployee = '" & TbxEmployeeID2.Text & "')"
Dim cmd As New OleDbCommand(SqlDelete, connect)
cmd.CommandType = CommandType.Text
cmd.CommandText = SqlDelete
cmd.Connection = connect
cmd.ExecuteNonQuery()
End Sub