各位朋友我连接SQL数据库查询时出问题了.请帮忙.急!急!急!

[pengcheng]

我的代码:
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Initialize()
Dim sql As String
Set cn = New ADODB.Connection
With cn
.Provider = "SQLOLEDB.1"
.ConnectionString = "Persist Security Info=false;Data source=SQLSERVER;Initial Catalog=pubs;User ID=sa;"
.Open
End With
sql = "select * from sysobjects where type='u'"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorType = adOpenDynamic
rs.LockType = adLockBatchOptimistic
rs.Open sql, , , , adCmdText
Do Until rs.EOF
Combo1.Text = rs.Fields(0).Name
rs.MoveNext
Loop
End Sub

[visualbasic999]

错误提示信息是什么？

[lzy5042]

combo1.text = rs.fileds(0).value
快给分!!

[wolfw]

恩，同意　ganzhiruogy(方竹)　的意见，你是不是要字段名？

[outer2000]

gz

[l_h_pengwei]

pengcheng你开玩笑吧，我调试没有问题呀！

[ganzhiruogy]

sql = "select * from sysobjects where type='u'"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorType = adOpenDynamic
rs.LockType = adLockBatchOptimistic
rs.Open sql, , , , adCmdText
rs.movefirst
I=0
Do Until rs.EOF
Combo1.List(I) = rs.Fields(0).value '?你需要字段名吗？？？
rs.MoveNext
I=I+1
Loop

[lzy5042]

combo1.text=rs.fileds(0).name.value
快给分！！你这小子！！要多给！！！

[pengcheng]

谢谢各位.搞定了.

[pengcheng]

嘿!lzy5042(老三)，下一个再给你10分。