plz mujhay koi ye error bata de............kis wajah se ye error a raha hai......


'Private Sub StartConnection()
Public Sub StartConnection()



'
' MDBpath = App.Path & "\DataFile.mdb"
' ReportPath = App.Path
'
' Set Con2 = New ADODB.Connection
' Con2.ConnectionString = MDBpath
' Con2.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=supersst"
'
' Con2.Open




Set Con = New ADODB.Connection

Con.Open "DataFileBabarDSN", "sa", "sa" ---->source coding me project


run karta hun tu yaha yellow error ata hai source coding me <-----------

Con.CursorLocation = adUseClient
ConReport = Con
''''''''''''''''''*********************]

End Sub



plz koi help kar de...............