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)thank in advance for help