>Hi Claude.
>
>>This is the code for "GetDataSources"
>>

>>lparameters toApplication, toDatabase
>>local loDataSource
>>loDataSource = toDatabase.DataSources.AddItem('VFP', 'My Datasource 1')
>>loDataSource.Database = 'c:\apps\medstvfp7\medstvfp.dbc'
>>loDataSource = toDatabase.DataSources.AddItem('VFP', 'My Datasource 2')
>>loDataSource.Database = 'k:\medstkvfp.dbc'
>>

>>based on your previous posting. k is the letter to which network drive is mapped. Data dicitionary for local drive is already entered.
>
>I checked the code for the Open Databases menu item and think I see the problem: ensure your database is flagged as the "main" database. To do that, select the database's node under the Data Dictionary section and turn on the Main Database property.
>

The check box for "Main Database" is checked. If I uncheck it I get an error message that no databases are avialalble for querying"

>Doug