原脚本是：

Dim objConnection
Dim objRecordset
Dim strSQL
Dim strConnectionString

strConnectionString="DSN=TEST;UID=sa;PWD=;"
Set objConnection=CreateObject("ADODB.Connection")
Set objRecordset=CreateObject("ADODB.Recordset")

objConnection.ConnectionString=strConnectionString
objConnection.Open

objRecordset.MoveFirst
objRecordset.MoveNext
With objRecordset
.Edit

.Fields("Name")="Dog"
.Fields("Age")="24"
.Fields("Sex")="Female"

.Update
End With
objRecordset.MoveNext

objConnection.Close
Set objConnection=Nothing