[nourmandour]

دي كود البحث الي انا شغال بيه
الكود ضعيف سهل اختراقة لو فيه كود اقوي
     Dim sql_PSS = "SELECT BMW.N_name, BMW.pss_name, BMW.inn FROM BMW where BMW.pss_name='" & TextBox1.Text & "'"
            Dim addPSS As New OleDb.OleDbDataAdapter(sql_PSS, conn)
            Dim SEt_PSS As New DataSet
            addPSS.Fill(SEt_PSS, "BMW")
        If SEt_PSS.Tables("BMW").Rows.Count = 0 Then
            TextBox1.Text = ""
            MsgBox("كلمة السر غير صحيحة برجاء ادخال كلمة السر", MsgBoxStyle.OkOnly, "تحذير")
            TextBox1.Focus()
            Exit Sub
        Else
            MDIform.Timer1.Enabled = True
                Me.Close()
        End If