نحوه ورود به فرم با usernameوpassword

[M27777]

سلام
من در فرم login خود مشکل دارم و آنهم زمانی است که کاربر می خواهد وارد سیستم شود
البته اگر در این جدول من تنها یک کاربر ثبت شده داشته باشم کد عمل کرده و می توان وارد سیستم شد.
اما اگر تعداد کاربران زیاد باشد.جواب نمی دهد.اینهم کد برنامه لطفاً بنده را راهنمایی کنید.ممنون

If TextBox1.Text.Trim = "" Then
MessageBox.Show("لطفاً نام کاربری خود را وارد کنید!", "رمز عبور", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TextBox1.Focus()
Exit Sub

Else

If TextBox2.Text.Trim = "" Then
MessageBox.Show("لطفاً رمز عبور خود را وارد کنید!", "رمز عبور", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TextBox2.Focus()
Exit Sub

End If
End If

user = TextBox1.Text
pass = TextBox2.Text

bol = False

If user <> "" Or pass <> "" Then

For Each dr In ds.Tables(0).Rows
If UCase(dr("username")) = UCase(user) And UCase(dr("password")) = UCase(pass) Then
bol = True

End If
Next

End If

If bol = True Then
Me.Visible = False
fr.ShowDialog()