Lave en SQL sætning i VBS ?

Set Conn = Server.CreateObject("ADODB.Connection")
' Her skrives stien til databasen
strKriterie =  server.MapPath("db/FF_ForeningBE.mdb")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & strKriterie & ";Uid=sa;Pwd=;"

strSQL = "Insert into tblSport(Sportnavn) values('Sportnavn');"
Conn.Execute (strSQL)

conn.close
set conn = nothing

Takker for svaret :o)