مشکل با قسمت Login

[Ship Storm]

سلام
من یک فرم دارم برای لوگین کردن و داخل دکمه لوگین این کد رو نوشتم :



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s1 = "data source=HAMED-PC;initial catalog=Automation;integrated security=True;"
con = New SqlConnection(s1)
con.Open()
s2 = "Select * from Login where UserName = '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'"
da = New SqlDataAdapter(s2, con)
da.Fill(ds, "Login")
If ds.Tables("Login").Rows.Count = 0 Then
MsgBox("Invalid UserName", MsgBoxStyle.Critical, "Dear User ")
Exit Sub
End If
dr = ds.Tables("Login").Rows.Item(0)
If Trim(dr.Item("Password")) <> TextBox2.Text Then
MsgBox("Invalid Password", MsgBoxStyle.Critical, "Dear User")
Exit Sub
End If
MsgBox("Welcome")
us = TextBox1.Text
Main.Show()
Me.Hide()
End Sub



مرتبه اول اگر یوزر و پسورد رو درست وارد کنی به راحتی وارد فرم بعدی میشه
مشکل از اینجا شروع میشه
در فرم بعدی یک دکمه گذاشتم برای بازگشت به فرم لوگین که وقتی وارد فرم لوگین شدم فقط همون یوزر و پسوردی که اول باز زدم رو قبول میکنه برنامه و با سایر یوزر و پسورد هایی که داخل دیتابیس تعریف شده وارد نمیشه و پیغام نامعتبر بودن رمز عبور رو میده
ممنون میشم راهنمایی کنید
با تشکر

[arash020]

سلام
از این کد ببین میتونی به جواب برسی...

دکمه لاگین:
Dim sqlString As String = "select * from users where username='" + unn + "' and password='" + unp + "'"
Using conn As New OleDb.OleDbConnection(conn_str)
conn.Open()
Dim com As New OleDb.OleDbCommand(sqlString, conn)
Dim rd As OleDb.OleDbDataReader = com.ExecuteReader
If rd.HasRows Then
rd.Read()
user_cod = rd.Item("Username").ToString.Trim
userlogin = rd.Item("password").ToString.Trim
user = rd.Item("name_fam").ToString.Trim
main.Show()
Me.Hide()
Else
MsgBox("!نام کاربری یا رمزعبور اشتباه است", MsgBoxStyle.OkOnly + vbExclamation, Me.Text)
End If
End Using
GlassButton1.Enabled = True

Public conn_str = "provider=SQLOLEDB;Data Source=.;Initial Catalog=pic_lib;Integrated Security=SSPI"