set cmInsert as Server.CreateObject("ADODB.Command")
set cmInsert = cnDB 'your connection object
cmInsert.CommandType = 1
cmInsert.CommandText = "INSERT INTO myTable (Name) VALUES (?)"
cmInsert.Parameters.Append cmInsert.CreateParameter("Name",200,1,,myVar)
cmInsert.Execute