你是用什么连接到SQL的？ADO吗？
如果ADO的话
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "connection string"
Set rs = conn.Execute("select [Epassword] from [Emplyee]")
Do Until rs.EOF
x(i) = rs(0)
rs.MoveNext
i = i + 1
Loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024