sub tableInsert() 
Dim strSQL 
Dim iCon 
Dim strCon 
Dim strNew 
Dim rs 

set iCon = CreateObject("Adodb.connection") 
set rs = CreateObject("Adodb.RecordSet") 
strCon = "UID=sa;PWD=123;Database=test;" & _ 
         "Driver = {SQL Server};" & _ 
         "Server = .;" & _ 
         "Provider = SQLOLEDB.1" 
iCon.Open strCon 

strSQL = "insert into [aaa](id,score,type) values(1,140.1,'a')" 

iCon.Execute strSQL 

end sub