[code]Dim conn
Dim rs
Dim sql
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名称;Data Source=lzw-desktop"
sql = "SELECT * FROM 表名"
rs.Open sql, conn
If Not rs.EOF Then
rs.MoveFirst
Do Until rs.EOF
'处理查询结果
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing[/code]
这个程序使用ADO连接字符串连接到SQL Server 2014,您需要将示例中的“密码”、“用户名”、“数据库名称”和“表名”属性替换为您实际使用的值。您也可以更改SQL查询以适应您的查询需求。