[honest]

السلام عليكم
اريد حل مشكلة database login وطلب اسم المستخدم وكلمة السر

كود :

Imports CrystalDecisions
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Public Class Form3

   Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim CrTables As Tables
       Dim crtableLogoninfo As New TableLogOnInfo
       Dim crConnectionInfo As New ConnectionInfo
       Try
           'reportdoc object
           Dim cryRpt As New ReportDocument

           'load report
           cryRpt.Load(Application.StartupPath & "\CrystalReport2.rpt")

           'parameters definition(if any)

           'provide connection info. This is important and you can change it as per your db location
           With crConnectionInfo
               .DatabaseName = Application.StartupPath & "\AdoBase.accdb"
               .ServerName = "Ms access"

               .UserID = "admin"
               .Password = "111111"
               .IntegratedSecurity = True

           End With

           CrTables = cryRpt.Database.Tables
           For Each CrTable As Table In CrTables
               crtableLogoninfo = CrTable.LogOnInfo
               crtableLogoninfo.ConnectionInfo = crConnectionInfo
               CrTable.ApplyLogOnInfo(crtableLogoninfo)
           Next

           CRV1.ReportSource = cryRpt
           CRV1.Refresh()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try



   End Sub
End Class