login screen in visual basic 2005

every time my login screen comes up, it comes up behind the splash screen. I have  tried changing this code around under the "application events", but it still comes up behind the splash screen.  so, when I deploy the application, I have a splash screen open up, which hangs and behind it there is a login form, so unless I open the login form from the task bar, it will not come up.
And the "close button" on the login screen "does not close the form", what it does is it opens the main window.  I do have "me.close" under the "close button"
Can you please help, I have included the code for both the "application events" and "the login form itself"?
Thank you, I am coding in visual basic 2005 with access 2007 database.

application events
 
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Data.Common
Imports System.Windows.Forms
 
Namespace My
    ' The following events are availble for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication
        ' Override OnInitialize to set the splash screen's
        Protected Overrides Function OnInitialize(ByVal commandLineArgs As _
          System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
            ' Display the splash screen for at least 6 seconds.
            Me.MinimumSplashScreenDisplayTime = 6000
            ' Continue initialization as usual.
            Return MyBase.OnInitialize(commandLineArgs)
        End Function
 
        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            
 
 
            Dim splash_screen As SplashScreen1
            splash_screen = DirectCast(My.Application.SplashScreen, SplashScreen1)
            'Wait one second three times.
            For progress As Integer = 0 To 100 Step 10
                Dim stop_time As Date = Now.AddSeconds(0.25)
                Do While Now < stop_time
                    Application.DoEvents()
                Loop
            Next progress
 
 
            Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")
            Dim reader As OleDbDataReader
 
            conn.Open()
            Dim query As String = "SELECT * FROM tblUsers"
            Dim cmd As OleDbCommand = New OleDbCommand(query, conn)
            reader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
 
            If reader.HasRows Then
                'MessageBox.Show("Valid login")
                Dim formLogin As New LoginUser
                formLogin.ShowDialog()
                'Dim formMain As New Main
                'formMain.Close()
            Else
            End If
            conn.Close()
            reader.Close()
            'Catch ex As Exception
            '    MessageBox.Show(ex.Message)
            'Finally
            '    If conn.State = ConnectionState.Open Then
            '        conn.Close()
            '    End If
            '    reader = Nothing
            '    conn = Nothing
            'End Try
        End Sub
    End Class
End Namespace
 
 
 
the actual "login" form:
 
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Data.Common
Imports System.Windows.Forms
 
Public Class LoginUser
 
    Public Event Login As EventHandler
    Dim tryNumber As Integer
        Private ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"
 
 
    ' TODO: Insert code to perform custom authentication using the provided username and password 
    ' (See http://go.microsoft.com/fwlink/?LinkId=35339).  
    ' The custom principal can then be attached to the current thread's principal as follows: 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' where CustomPrincipal is the IPrincipal implementation used to perform authentication. 
    ' Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object
    ' such as the username, display name, etc.
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
 
           If (txtUserName.Text.Trim() = "") Then
            MsgBox("User Id cannot be left blank.", MsgBoxStyle.Critical)
            txtUserName.Text = ""
            txtPassword.Text = ""
            txtUserName.Focus()
            Exit Sub
        ElseIf (txtUserName.Text.Trim.Length > 10) Then
            'MsgBox(TextBox1.Text.Trim.Length)
            MsgBox("User Id cannot be more than 10 characters.", MsgBoxStyle.Critical)
            txtUserName.Text = ""
            txtPassword.Text = ""
            txtUserName.Focus()
            Exit Sub
        End If
 
        If (txtPassword.Text.Trim() = "") Then
            MsgBox("Password cannot be left blank.", MsgBoxStyle.Critical)
            txtPassword.Text = ""
            txtPassword.Focus()
            Exit Sub
        ElseIf (txtPassword.Text.Trim.Length > 10) Then
            MsgBox("Password cannot be more than 10 characters.", MsgBoxStyle.Critical)
            txtPassword.Text = ""
            txtPassword.Focus()
            Exit Sub
        End If
 
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")
        Dim reader As OleDbDataReader
        Try
            conn.Open()
            Dim query As String = "SELECT * FROM tblUsers WHERE fldUserName = """ & txtUserName.Text & """ AND fldPassword = """ & txtPassword.Text & """"
            Dim cmd As OleDbCommand = New OleDbCommand(query, conn)
            reader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            If reader.HasRows Then
                'MessageBox.Show("Valid login")
                Dim formMain As New Main
                formMain.Show()
                Me.Close()
            Else
                MessageBox.Show("The username or password are not valid!")
            End If
            conn.Close()
            reader.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
            reader = Nothing
            conn = Nothing
        End Try
        
    End Sub
 
   
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
 
    End Sub
End Class

Select allOpen in new window