急急！！关于查询ACCESS一个字段的所有记录问题

请教高手2个问题：
1、关于查询ACCESS一个字段的所有记录问题；怎么下面代码无法打开数据库呀？
2、下面的代码可以访问“国标码”字段中的所有记录值吗？


急急！！！！！！！！

vb语言代码如下：

Sub addcomboxitem()

      Dim Sql_connect As String
      Dim Rst As New ADODB.Recordset
      Dim s As String
      Sql_connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEST.mdb;Persist Security Info=False"
      Rst.Open "select 国标码 from WJSZ , Sql_connect, adOpenForwardOnly, adLockReadOnly"
      On Error Resume Next

          While Not Rst.EOF
            k = k + 1
            s = s + Rst.Fields("国标码").value
            Rst.MoveNext
        Wend
        Rst.Close '读完数据后关闭记录集
msgbox s
End Sub

---

高！！！！！！
爽一点，结贴给分。