Vb.net login for for admin and staff

s bro

If Len(Trim(ComboBox1.Text)) = 0 Then
MessageBox.Show("Please select user type", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
ComboBox1.Focus()
Exit Sub
End If
If Len(Trim(TextBox1.Text)) = 0 Then
MessageBox.Show("Please enter user name", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Focus()
Exit Sub
End If
If Len(Trim(TextBox2.Text)) = 0 Then
MessageBox.Show("Please enter password", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox2.Focus()
Exit Sub
End If
Try
Dim myConnection As OleDbConnection
myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Attendance.mdb.accdb;Persist Security Info=False;")
Dim myCommand As OleDbCommand
myCommand = New OleDbCommand("SELECT users.username,User_password FROM Users,Registration where Registration.Username=users.username and Users.Username = @Username and user_password = @UserPassword", myConnection)

Dim uName As New OleDbParameter("@Username", SqlDbType.VarChar)
Dim uPassword As New OleDbParameter("@UserPassword", SqlDbType.VarChar)
uName.Value = TextBox1.Text
uPassword.Value = TextBox2.Text
myCommand.Parameters.Add(uName)

myCommand.Parameters.Add(uPassword)

myCommand.Connection.Open()

Dim myReader As OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

Dim Login As Object = 0

If myReader.HasRows Then

myReader.Read()

Login = myReader(Login)



End If

If Login = Nothing Then

MsgBox("Login is Failed...Try again !", MsgBoxStyle.Critical, "Login Denied")
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()

Else
ProgressBar1.Visible = True
ProgressBar1.Maximum = 5000
ProgressBar1.Minimum = 0
ProgressBar1.Value = 4
ProgressBar1.Step = 1

For i = 0 To 5000
ProgressBar1.PerformStep()

Next
Me.Hide()
Me.Label1.Hide()
Me.TextBox1.Hide()
Me.Label2.Hide()
Me.TextBox2.Hide()
Me.Button1.Hide()
Me.Button2.Hide()
Me.LinkLabel1.Hide()
Me.Label3.Hide()
Me.Label6.Hide()
Me.ComboBox1.Hide()



Main.Show()

End If
myCommand.Dispose()
myConnection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

This is my coding bro...but i dont know how to mentiooned condition to two types of usertype login opened two different forms.

thanks bro...can tell me the same code in sql server 2008 and vb.net....pls bro