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

objExcel.WorkBooks.Open("Q:\E3\Tools\Versuche\Bauteilbes.xls") 'Pfad mit Tabelle
objExcel.Visible = 1

Dim sql
Dim VarExcel										'Zeile 10
Dim Bauteil

' Programm
' ======== 
'der Provider steht schon im Connections String! objDBcon.Provider = "Microsoft.Jet.OLEDB.4.0"				'mit Jet OLE DB
objDBcon.Open(objApp.GetComponentDatabase)

Dim i
Dim tmp 
tmp = 200											'Zeile 20

'Do While NOT objDBrec.EOF

'	tmp=tmp+1

'Loop


Set objTab = objExcel.ActiveWorkBook.WorkSheets("Tabelle1") 'Blattname				'Zeile 30

for i=3 to tmp

	cmpnam = CStr(objTab.Cells(i,1).Value)				'Bauteilname aus Exceltabelle
	VarExcel = CStr(objTab.Cells(i,2).Value)				'Beschreibung aus Exceltabelle
	
	objDBcon.Execute("UPDATE ComponentAttribute SET AttributeValue = '" & VarExcel & "' WHERE AttributeName = 'Description_english' AND ENTRY='" & cmpnam & "'" )
	
	objApp.PutInfo 0, "wird durchlaufen !!"	
	objApp.PutInfo 0, VarExcel
	objApp.PutInfo 0, cmpnam
next

objApp.PutInfo 0, VarExcel
objApp.PutInfo 0, cmpnam

objDBcon.Close
set objApp = Nothing				
Set objExcel = Nothing
WScript.quit