data type mismatch is the warning(visual basic 2008)

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
    connect.Open()
    Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT * FROM tbluser", connect)
    sql = "update tbluser set  Username ='" & TextBox2.Text & "', Password ='" & TextBox3.Text & "', Userlevel ='" & ComboBox1.Text & "'where IDnumber= '" & TextBox1.Text & "'"
    cmd = New OleDb.OleDbCommand(sql, connect)
    cmd.ExecuteNonQuery()
    connect.Close()
    MsgBox("Updated")
End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
    connect.Open()
    Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("Select * from tbluser where IDnumber ='" & TextBox1.Text & "'", connect)
    Dim sdr As OleDb.OleDbDataReader = cmd.ExecuteReader
    If (MsgBox("Are you sure you want to delete this record?", vbOKCancel) = vbOK) Then
        sql = "Delete * from tblUser where userid='" & TextBox1.Text & "'"
        cmd = New OleDb.OleDbCommand(sql, connect)
        cmd.ExecuteNonQuery()
        connect.Close()
    Else
        MsgBox("Operation Cancelled")
        connect.Close()
        Exit Sub
    End If
End Sub