vb连接数据库的

我想把数据库yuanliaochang的表user中的用户名username添加到cmbName中，cmbName的caption属性为用户名，我的数据库用的是sql server 2000,操作系统windows server 2003，计算机名为server。请问我以下的代码哪里不对啊？

Option Explicit
Dim sql As String
Dim conn As New ADODB.connection
Dim yuanliaochang As String
Dim user As String
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yuanliaochang;Data Source=SERVER"
conn.Open connectionstring
If conn.State <> 1 Then
conn.Open (connectionstring)
End If
Set rs = conn.Execute("select * from user")
With rs
.MoveFirst
Do While Not .EOF
DoEvents
cmbName.AddItem (!用户)
.MoveNext
Loop
End With
cmbName.ListIndex = 0
conn.Close

Set rs = conn.Execute("select * from [user]")
user是关键字,使用时需要用方括号括上

支持楼上，UP，UP。
在定义数据库中的表，列的时候，不要使用User，Delete，Date等系统默认的关键字，否则系统会自动的给你定义的表或者列加[]，比如User就成了[User]。你可以去你的数据库里看看。

顶~~~~~~~~~~!

vb连接数据库的 VB连接数据库的问题 vb连接数据库的问题 VB的问题！连接数据库！ VB数据库的连接问题 关于VB连接操作数据库的问题 关于VB连接SQL数据库的问题 VB连接SQLSERVER数据库的一个问题 vb中连接数据库的问题 vb.net连接数据库的问题