Dim oConn As Connection
Dim oCmd As Command
Set oConn = New Connection
oConn.Open <your connection="" string="" goes="" here="">
Set oCmd = New Command
oCmd.ActiveConnection = oConn
oCmd.CommandText = "INSERT INTO YourTable (Column1Name) VALUES('columnValue')" oCmd.Execute
</your>
for connection strings, see the following link based in SQL server etc.
http://www.connectionstrings.com/sql-server-2005[
^]