Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim res As New ADODB.Recordset
lockcontrol (ture)

cnn.ConnectionString = conn
cnn.Open

Set rst.ActiveConnection = cnn
rst.Open "select [bus]from[bus]"

lstbus.Clear
Do While Not rst.EOF
   lstbus.AddItem rst(0).Value
   rst.MoveNext
   Loop
   
   If lstbus.ListCount > 0 Then
     
      lstbus.ListIndex = 0
      End If
      rst.Close
      cnn.Close
      
End Sub

运行时出现 实时错误-2147467259（80004005）文件名无效
提示cnn.Open 出现错误
请高手帮解决一下  不胜感激！！

conn是什么？

Sub main()
  strdb = "F:\ 新建文件夹\bus.mdb"
  conn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path + strdb + ";persist security info=false"
  frmmain.Show

conn如何定义？public吗？

public conn as string
  conn = "provider=microsoft.jet.oledb.4.0;data source=" & strdb + ";persist security info=false"