怎么用VB读取SQL表中一列数据

Question

SQL Server 2008 的，然后现在我VB已经连接了数据库，也可以读取数据，我现在想把其中一个表里某一列的数据读出来保存在数组里用，例如：password(i) = ConnSQL.Execute("select [Epassword] from [Emplyee] ")(0) 但是这样的话 加上i变化的for循环 不管怎么读都是第一行的数据，但是我想password(0)存第一行，password（1）存第二行的数据，请问代码该怎么写，在后边加Where[Enumber]=x(i)也不行，说x(i)不是SQL的，这里的x(i)我在上面的代码中是从101开始对应着Enumber列（员工号）用i的变化来一个个往上加的。求解决办法，总的来说现在是用VB弄了个登录系统，但是用员工号和密码需要在Emplyee中读取。
Adodc1.ConnectionString = "Provider=SQLOLEDB;Password=123456;Persist Security Info=False; User ID=Hyy; Initial Catalog=JYJCheck; Data Source=X6X8-20110812OF\JYJCHECK"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Emplyee"
Adodc1.Refresh

ConnSQL.Open "driver={SQL Server};server=X6X8-20110812OF\JYJCHECK;database=JYJCheck;uid=Hyy;pwd=123456"

你不回答我没办法继续追问 我把那个connoection string改成了我当时数据源的名字了，但是说驱动程序和应用程序之间体系不匹配怎么办啊

Answer 1

你是用什么连接到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

追问

是用的ADO 不过运行编译显示 未发现数据源名称并且未指定默认驱动程序