Sql 关于dsn字符串的查询

下面是在VBA应用程序中填充列表框的代码：

Private Sub Form_Open(Cancel As Integer)

  ''#Populate list box control.
  Dim cnn As ADODB.Connection
  Dim strSQL As String
  Dim rst As ADODB.Recordset
  Dim strList As String

  On Error GoTo ErrHandler

  ''#Use DSN to Northwind. 
  ''#Modify connection and connection string as needed.

  Set cnn = New ADODB.Connection
  cnn.Open "DSN=NorthwindExample"
  strSQL = "SELECT * FROM Shippers"
  Set rst = New ADODB.Recordset
  rst.Open strSQL, cnn
  strList = rst.GetString(adClipString, , ";", ",")

  Debug.Print strList

  Me.lstShippers.RowSource = strList
  rst.Close
  cnn.Close
  Set rst = Nothing
  Set cnn = Nothing

  Exit Sub

ErrHandler:
  MsgBox Err.No & ": " & Err.Description, vbOKOnly, "Error"
  Set rst = Nothing
  Set cnn = Nothing
End Sub

我需要知道我需要把什么作为DSN字符串？我在哪里可以得到信息

此代码中的

adClipString

是什么

---

由于我从同一个访问表中获取值，是否有任何选项可以在不使用DSN连接对象的情况下填充列表控件？

以下是一个包含不同访问连接字符串的链接：

类似的东西应该可以工作：Provider=Microsoft.Jet.OLEDB.4.0；数据源=C:\mydatabase.mdb；用户Id=管理员；密码=

我不确定AdClipsString是什么，它可能是未声明的变量或数据库列

Matt

是adClipString上的信息

基本上，GetString方法将整个记录集的内容放入一个字符串变量中，其中列将以“；”分隔，行将以“，”（根据您的代码）分隔

---

关于DSN-请参阅开始->设置->控制面板->管理工具->数据源（ODBC）。其中一个标签（我猜是系统DSN）是可以创建和列出基于ODBC的数据源的地方。

@SmartestVEGA:这是关于您在几分钟内问的同一主题的第二个问题（另一个在这里：），继续发布您在Internet上挖掘的随机代码示例可能不是最好的主意，要求人们修复它们，直到你找到一个有效的。如果你想完成任何事情，你必须在VBA上投入一些时间。谢谢Tomalak，VBA不是很好，所以谢谢你提供的额外信息。我找到了另一个解决方案：lstreults.RowSource=“select*from tblTesting”