Dim cn 'As ADODB.Connection

	Set cn = CreateObject("ADODB.Connection")
	cn.Provider = "Microsoft.Jet.OLEDB.4.0"
	cn.Properties("Data Source") = "D:\MYDOCU~1\PROJECTS\ADO\ADO.XLS"
	cn.Properties("Extended Properties").Value = "Excel 8.0;" _
		& "HDR=NO;" _
		& "MAXSCANROWS=16;"
	cn.Open
	'Replace data in a single cell
	cn.Execute "UPDATE [Sheet1$A1:A1] SET F1='hello world';"
	'Add a new row
	cn.Execute "INSERT INTO [Sheet1$] (F1,F2) Values ('foo','b a r')"
	cn.Close
	Set cn = Nothing