Dim conn
Dim strCon
Dim oRS
Dim comm
Dim strsql

'打开数据库 
Set  conn = CreateObject("ADODB.connection")
strCon = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=Test;Data Source=DESKTOP-TL3U4N3\WINCC;"   
conn.connectionstring = strCon
conn.open
Set  comm = CreateObject("ADODB.command")
Set  oRS = CreateObject("ADODB.Recordset")
 
 
'数据库语句
strsql = "INSERT INTO [Test].[dbo].[Information] (ID,Flow) VALUES ('1', '3.0')"
comm.activeconnection=conn
comm.commandtext=strsql
Set  oRS=comm.Execute
 
 
'关闭数据库
 Set comm=Nothing
 conn.close
 Set conn=Nothing
 Set oRS=Nothing