[محمد مسافر]

السلام عليكم

استفسار بخصوص عندي فورم1 دخول يوجد اشكاليه عندي بمجرد الضغط على زر دخول   LOGIN  ينتقل الى الفورم 2 المسمى عندي بـ frmContactPerson ولكن لا يختفي الفورم 1  هل بالإمكان معرفه الإشكالية على الرغم اني عملت الامر Close() ولكن للاسف هناك نقص ؟

اريد بمجرد الضغط على login  يظهر لي فورم 2 ويختفي فورم 1 في نفس الوقت .

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim command As New OleDbCommand("SELECT [ID] FROM [Staff] WHERE [usernameField] = username AND [passwordField] = password", Con)
       Dim usernameParam As New OleDbParameter("username", Me.TextBox1.Text)
       Dim passwordParam As New OleDbParameter("password", Me.TextBox2.Text)
       command.Parameters.Add(usernameParam)
       command.Parameters.Add(passwordParam)
       If Con.State = ConnectionState.Closed Then Con.Open()
       Dim reader As OleDbDataReader = command.ExecuteReader()
       If reader.HasRows Then
           TextBox2.Text = ""
           reader.Read()
           IDUser = reader.GetValue(0).ToString
           Dim Frm As New frmContactPerson
           Frm.Show()

       Else
           MessageBox.Show("خطأفي كلمة السر أو الأسم")
           TextBox2.Text = ""
       End If
       If Con.State = ConnectionState.Open Then Con.Close()
   End Sub