Set objApp 		= CreateObject( "CT.Application" )
Set objDBcon 	= CreateObject( "ADODB.Connection" )
Set objExcel	= CreateObject( "Excel.Application" )


Dim sql

' Programm
' ======== 
objDBcon.Provider = "Microsoft.Jet.OLEDB.4.0"				'mit Jet OLE DB
objDBcon.Open(objApp.GetComponentDatabase)

objExcel.WorkBooks.Add
objExcel.Visible = 1
objExcel.Cells ( 1,1 ) = "Bauteil"
objExcel.Cells ( 1,2 ) = "Beschreibung"


Set sql = objDBcon.Execute("SELECT Entry, Description FROM ComponentData")
i = 2
Do Until sql.EOF
'* 	objApp.PutMessage sql(0) & ": " & sql(1)
	objExcel.Cells ( i,1) = sql(0)
	objExcel.Cells ( i,2) = sql(1)
	sql.MoveNext
	i = i + 1
Loop

objDBcon.Close
Set objExcel = Nothing
WScript.quit