Problem with MDI (Parent child form)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'frmmain.pmain.Show()  ' asal
        Me.Close()
        Me.Hide()  ' add 10/02/11
        frmmain.pmain.Hide()
        frmmain.Hide()
        ' frmqlist.Show() ' del 10/02/1
    End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
       
        Me.Uptable()
      
    End Sub
   
    Public Sub Uptable()
        Dim rsx As OleDb.OleDbDataAdapter
        Dim dt As New DataTable("tbluser")
        Dim counter As Integer
        counter = 0
       
        rsx = New OleDb.OleDbDataAdapter("SELECT iduser FROM tbluser WHERE gender = 'male' or gender = 'female'", con)
        rsx.Fill(dt)
        Try
            counter = dt.Rows.Count
        Catch ex As Exception
        End Try
       
        If (counter = 1) Then
            Me.pmain.Hide()
            'frmqlist.Show()
            frmQuestionnaire.Show()
        Else
            Me.Show()
            Me.pmain.Show()
        End If

        rsx.Dispose()
        con.Close()
    End Sub