dnf87级没有主线任务:我的combo 为什么不显示 数据表中的内容

Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'With Adodc1
'cn.ConnectionString = "driver={sql server};uid=sa;pwb;server=192.168.1.69;database=master"
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=192.168.1.69"
'cn.ConnectionString = "DSN=pw;uid=sa;pwd=;server=192.168.1.69"
cn.ConnectionTimeout = 30
cn.Open
'End With
'Dim str As String
'str = "select name from spt_values"
'Set DataGrid1.DataSource = Adodc1

'cn.Open
'rs.Open="select name from spt_values", cn, adOpenStatic, adLockReadOnly, adCmdText
Set rs = cn.Execute("select name from spt_values")
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("name").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
End Sub

没有显示数据表内容
是什么原因
是不是数据库连接的不正确