Ti faccio un esempio:

Set cnado = New ADODB.Connection
cnado.Open = "DSN=database"
cnado.Execute = "insert into schedaprinc(nome) values ('luca')"
cnado.Close

Ciao