* To populate the ComboBox with list of servers: LOCAL loApp, loServerNames, i loApp=CREATEOBJECT('SQLDMO.Application') loServerNames=loApp.ListAvailableSQLServers With loServerNames For i = 1 To .Count Thisform.cboServers.AddItem(UPPER(.Item(i))) NEXT i EndWith * To populate the ListBox with all the Databases from the server: loServer = CREATEOBJECT('SQLDMO.SqlServer') With loServer .Connect(lcServerName, lcUserName, lcPassword) For i = 1 To .Databases.Count ThisForm.ListDatabases.AddItem(.Databases(i).Name) Next i EndWithCheers,