想连接 MS SQL 数据库，然后返回一个列表，用datagrid控件，有数据，但是用DATACOMBO控件就没数据 应该怎么写代码
Private Sub dataCombo1_GotFocus()
dim conn as adodb.connection
dim rst as adodb.recordset
Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化
Conn.CursorLocation = adUseClient
Conn.Open "Provider=SQLOLEDB.1;Password=Pei%791128;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=192.168.11.252"
'执行 ADODB.Recordset对象的Open方法，获得记录集
Rst.Open "Select cacc_name From t_kdaccount_gl", Conn, adOpenKeyset, adLockPessimistic
'将返回的记录集显示到Datacombo1
Set dataCombo1.DataSource = Rst
Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCon As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

strCon = "Provider=SQLOLEDB.1;Password=Pei%791128;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.7" '填写连接字符串，可选将 Data Source=127.0.0.1 换进去
conn.ConnectionString = strCon
conn.CursorLocation = adUseClient
conn.Open '数据库打开成功
Dim SQL As String
SQL = "Select cacc_name  From t_kdaccount_gl" '填写SQL查询命令
rs.Open SQL, conn, 1, 1
Set DataCombo1.DataSource = rs
DataCombo1.DataField = "cacc_name"
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "cacc_name"