Hi

I calling crystal report into vb6
for that i want to create the dsn from system
Can anybody help how to create dsn from vb6.

'connection to database for entry moudle
Public Sub Data_connect()
Dim loadMdb As String
loadMdb = App.Path & "\gold.mdb"
Set Conect_Database = New ADODB.Connection
Conect_Database.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & loadMdb 'Without Password
'Conect_Database.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & loadMdb & ";Jet OLEDBatabase Password=SKM;" 'With password (skm)
Conect_Database.Open
End Sub


Thanks