Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=dfsdf;uid=test;pwd=test;database=test"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "INSERT INTO table1 VALUES('12','John')", conn, adOpenStatic, adLockReadOnly, adCmdText