>strDriver = "Microsoft Visual FoxPro Driver" > >strAttributes = "DESCRIPTION=Temp DSN" + CHR(0) >strAttributes = strAttributes + "DSN=AmlineFreeTables" + CHR(0) >strAttributes = strAttributes + "SourceType=DBF" + CHR(0) >strAttributes = strAttributes + "Deleted=Yes" + Chr(0) >strAttributes = strAttributes + "BackgroundFetch=No" + Chr(0) >strAttributes = strAttributes + "Collate=Machine" + Chr(0) >strAttributes = strAttributes + "Exclusive=No" + Chr(0) >strAttributes = strAttributes + "SourceDB =" + SYS(5) + CURDIR() + CHR(0) >*strAttributes = strAttributes + "UID=sa" + CHR(0) >*strAttributes = strAttributes + "PWD=" + CHR(0) >*'To show dialog, use Form1.Hwnd instead of vbAPINull. >intRet = SQLConfigDataSource( vbAPINull, ODBC_ADD_DSN, ; > strDriver, strAttributes) >>