marsden

No offense but doesn't ASP mean acitve server pages? If you used JavaScript to connect to a DB and display records on a web page then basically that it what it is, an active server page.Just my option.

Here is a coded picture for a DOS window. I forget the program that was used to create it. I was in school then and someone in my team did the pictures while the rest of the team were coding actions. This picture will display a picture of a church right in the DOS window. Maybe searching for DOS graphics software will net the program that made this code. /********************************************************************/void Pic::mainpic()//picture of the church/********************************************************************/{ unsigned char TITLE [] = { ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', 'Ă', 'Ă', 'Ă', ' ', ' ', 'Âł', 'Ă', 'Ă', 'Ă', ' ', ' ', 'Âł', 'Ă', 'Ă', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Âł', 'Ă', 'Ă', 'Âż', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', 'Âł', ' ', 'Âł', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', 'Âł', ' ', ' ', ' ', 'Âł', 'Ă', 'Ă', 'ĂŞ', 'Ă', 'Ă', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', 'Âł', 'Ă', 'Ă', 'Ă', ' ', ' ', 'Âł', ' ', 'Âł', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âł', ' ', ' ', ' ', 'Âł', ' ', ' ', 'Âł', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', ' ', 'Ă', 'Ă', 'Ă', 'Âť', 'Âş', 'Ă', 'Ă', 'Ă', 'Âť', ' ', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', ' ', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', ' ', 'Ă', 'Ă', 'Ă', 'Âť', 'Âş', 'Ă', 'Ă', 'Ă', 'Âť', ' ', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', ' ', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', 'Âť', 'Âş', 'Ă', 'Ă', 'Ă', 'Âť', 'Ă', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Âş', ' ', 'Ă', 'Ă', 'Ă', 'Ă', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', ' ', 'Âş', 'Âş', 'Ă', 'Ă', 'Ă', 'Ă', '²', 'Ă', 'Ă', 'Ă', '²', '²', '²', '²', '²', '²', '²', '²', '²', '²', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', 'Âą', ' '}; int ctr; for(ctr = 0;ctr <= 1750;ctr++) cout<<TITLE[ctr];

I agree with this to an extent. The problem with doing the above is that all .mdb files will call your program if you set it up this way. I would suggest moving your .mdb to a hidden folder so that no one will be able to see it therein stoping anyone from opening it.

Hi Dhanesh, Here is what I use to delete a record from my dataset in my VB.Net program that accesses a MS Access DB. Here is the creation of my dataset. 'Create a new dataset to hold the records returned from the call to FillDataSet. 'A temporary dataset is used because filling the existing dataset would 'require the databindings to be rebound. Dim objDataSetTemp As SecureComp.DataSet1 objDataSetTemp = New SecureComp.DataSet1() Try 'Attempt to fill the temporary dataset. Me.FillDataSet(objDataSetTemp) Catch eFillDataSet As System.Exception Try Dim writeFile As New StreamWriter("\\MAIN\hbh\Error.txt", True) If writeFile Is Nothing Then 'if file didn't open MessageBox.Show("File failed to open") Else 'write error to file writeFile.WriteLine(System.DateTime.Now & " Error loading database") writeFile.Close() End If 'log back out of windows ' ExitWindowsEx(0, 0) Catch 'log back out of windows ' ExitWindowsEx(0, 0) End Try End Try Try 'Empty the old records from the dataset. objdsClient1.Clear() 'Merge the records into the main dataset. objdsClient1.Merge(objDataSetTemp) 'get dataset length totalRec = objdsClient1.Tables("password").Rows.Count 'set password text box to focus txtPass.Focus() 'lock common keyboard functions e.x. alt+tab, alt+F4 ... HookKeyboard() 'start focus timer StartTimer1.Start() Catch eLoadMerge As System.Exception Try 'write system glitch to file Dim writeFile As New StreamWriter("\\MAIN\hbh\Error.txt", True) If writeFile Is Nothing Then 'if it didn't open MessageBox.Show("File failed to open") Else writeFile.WriteLine(System.DateTime.Now & "Error loading database") writeFile.Close() End If 'log back out of windows ' ExitWindowsEx(0, 0) Catch 'log back out of windows ' ExitWindowsEx(0, 0) End Try End Try Here is the call to the delete function (Me.btnDelete_Click(sender,e)), notice that I commit the changes right after the delete occurs. ElseIf (number = 1) Then MessageBox.Show("1 Minute Left on password", "Password Time Notice", _ MessageBoxButtons.OK, MessageBoxIcon.Warning) ElseIf (number < 1) Then 'time ended 'delete record from dataset If (editpass_type.Text <> 4) Then Me.btnDelete_Click(sender, e) End If Try 'commit changes Me.UpdateDataSet() Catch 'write error to file Dim writeFile As New StreamWriter("\\MAIN\hbh\Error.txt", True) If writeFile Is Nothing Then 'if it didn't open MessageBox.Show("File failed to open") Else writeFile.WriteLine(System.DateTime.Now & " Error updating database") writeFile.Close() End If End Try Here is the actual delete function that I call in the program. Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If (Me.BindingContext(objdsClient1, "password").Count > 0) Then Me.BindingContext(objdsClient1, "password").RemoveAt(Me.BindingContext(objdsClient1, "password").Position) End If End Sub Lastly here is the update function I used. Public Sub UpdateDataSet() 'Create a new dataset to hold the changes that have been made to the main dataset. Dim objDataSetChanges As SecureComp.DataSet1 = New SecureComp.DataSet1() 'Stop any current edits. Me.BindingContext(objdsClient1, "password").EndCurrentEdit() 'Get the changes that have been made to the main dataset. objDataSetChanges = CType(objdsClient1.GetChanges, SecureComp.DataSet1) 'Check to see if any changes have been made. If (Not (objDataSetChanges) Is Nothing) Then Try 'There are changes that need to be made, so attempt to update the datasource by 'calling the update method and passing the dataset and any parameters. Me.UpdateDataSource(objDataSetChanges) objdsClient1.Merge(objDataSetChanges) objdsClient1.AcceptChanges() Catch eUpdate As System.Exception Dim writeFile As New StreamWriter("C:\HBH\cmd\Error1.dat", True) If writeFile Is Nothing Then 'if it didn't open MessageBox.Show("File failed to open") Else writeFile.WriteLine(System.DateTime.Now & " Error updating database") writeFile.Close() End If Throw eUpdate End Try 'Add your code to check the returned dataset for any errors that may have been 'pushed into the row object's error. End If End Sub Hope this helps.

Hi iuridicus, I searched google for such a thing and came up with this article about connecting excel to an oracle database. Developers can use the OO4O In-Process Automation Server to connect to Oracle database servers and execute SQL or PL/SQL procedures through COM Automation Objects. You can also use the In-Process Server by creating a COM object for a session from its interface, "OracleInProcServer.XOraSession," and accessing subobjects, as shown in this example using Visual Basic: Set objSession = CreateObject("OracleInProcServer.XOraSession")Set objDatabase = objSession.OpenDatabase("","scott/tiger",0) With a database object, you can query records from the database or execute DDL or DML statements directly. For example, here's a VBA script that you can run from inside Microsoft Excel to fetch all the data from the EMP table into worksheet cells: Sub GetEmployees() ' Use OO4O Set objSession = CreateObject("OracleInProcServer.XOraSession") Set objDatabase = objSession.OpenDatabase("", "scott/tiger", 0) Sql = "select * from emp" Set oraDynaSet = objDatabase.DBCreateDynaset(Sql, 0) If oraDynaSet.RecordCount > 0 Then oraDynaSet.MoveFirst For x = 0 To oraDynaSet.Fields.Count - 1 Cells(1, x + 1) = oraDynaSet.Fields(x).Name Cells(1, x + 1).Format = Bold Next For y = 0 To oraDynaSet.RecordCount - 1 For x = 0 To oraDynaSet.Fields.Count - 1 Cells(y + 2, x + 1) = oraDynaSet.Fields(x).Value Next oraDynaSet.MoveNext Next End If Set objSession = Nothing Set objDatabase = NothingEnd Sub While it's possible to fetch data from an external datasource into an Excel spreadsheet through the Data/External Datasource function, this macro has much more direct control, allowing you to specify exactly how the data is read into the spreadsheet; and, because the macro doesn't use as many layers to get to the Oracle database, it should be faster. It also provides additional functionality, including the ability to store and retrieve blobs (such as images). Here is the link to that article. <<http://forums.xisto.com/no_longer_exists/; Hope this helps.