http://www.doc88.com/p-741553744823.html
http://blog.sina.com.cn/s/blog_03d6395601012jm6.html
http://blog.163.com/zalk_guo/blog/static/6012392520100314485516/
http://www.w3school.com.cn/ado/ado_ref_command.asp ADO 对象
Option Explicit
Function action
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim lngValue
Dim lngCount
strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
'取1分1的数据
strSQL = "select Uab,Ubc,Uca,Ia,Ib,Ic,P,COS,KB from 电参数表 where FZaddr = 2 and nodeaddr = 1"
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute
lngCount = objRecordset.Fields.Count
'MsgBox(lngCount)
If (lngCount>0) Then
objRecordset.movefirst
lngValue = objRecordset.Fields(0).Value '取Uab