this will create a DSN
VB Code:
  1. 'Creating the DSN
  2.     StrAttribs = "Description="ODBC Driver Description" & Chr$(13) & "DBQ=" & DBName
  3.     rdoEngine.rdoRegisterDataSource "YourODBCName", "Microsoft Access Driver (*.Mdb)", True, StrAttribs