Public Class Form2
Dim ad
Dim sifre
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.Items.Clear()
ListBox2.Items.Clear()
Dim dbConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; DATA Source=" & ".ilgiler.mdb")
dbConn.Open()
Dim db_komut As New OleDb.OleDbCommand("SELECT kullanici,sifre FROM uye ", dbConn)
Dim alinan_veri As OleDb.OleDbDataReader
alinan_veri = db_komut.ExecuteReader()
While alinan_veri.Read()
ListBox1.Items.Add(alinan_veri.Item(0))
ListBox2.Items.Add(alinan_veri.Item(1))
End While
dbConn.Close()


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


ListBox1.Items.Clear()
ListBox2.Items.Clear()
Dim dbConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; DATA Source=" & ".ilgiler.mdb")
dbConn.Open()
Dim db_komut As New OleDb.OleDbCommand("SELECT kullanici,sifre FROM uye ", dbConn)
Dim alinan_veri As OleDb.OleDbDataReader
alinan_veri = db_komut.ExecuteReader()
While alinan_veri.Read()
ListBox1.Items.Add(alinan_veri.Item(0))
ListBox2.Items.Add(alinan_veri.Item(1))
End While
dbConn.Close()

Dim kullanici, sifre
Dim sınır As Integer
Dim i As Integer
sınır = ListBox1.Items.Count - 1

kullanici = TextBox1.Text
sifre = TextBox2.Text
Try
For i = 1 To sınır



If ListBox1.Items(i) = kullanici And ListBox2.Items(i) = sifre Then

Form11.Show()
Form11.BringToFront()
MDIParent1.Show()
MDIParent1.SendToBack()
MDIParent1.Enabled = False


TextBox1.Text = " "
sifre = " "
'ListBox2.Items(i) = sifre
'TextBox2.Text = sifre
Me.Hide()

ElseIf ListBox1.Items(i) kullanici Or ListBox2.Items(i) sifre Then
Me.Show()
MsgBox("KULLANICI ADI VE ŞİFRE HATALI", , "HATA")


End If
Next
Catch ex As Exception
MsgBox("hata", , "HATA")

End Try
__________________