ADO INSERT
		Sub ado_Insert() Dim sql As String, Con As String Dim Con1 As Object sql = "DELETE FROM XX.XXX010T" Con = "DSN=xxx;" Set Con1 = CreateObject("ADODB.Connection") Con1.ConnectionString = Con Con1.Open Con1.Execute sql sql = "INSERT INTO XX.XXX010T (A,B,C,D,E,F,G,H)" & _ "VALUES ('a','b','c','d','e','f','g','h')" Con1.Execute sql Con1.Close Set Con1 = Nothing End Sub