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

End Sub

提示是在关键字user附近有语法错误，Set rs = conn.Execute("select * from user")一行就变成黄的了，应该怎么改啊？

Set rs = conn.Execute("select * from [user]")

user是关键字,使用时需要用方括号括上