ado连接

Question

各位帮忙看看下面的代码有什么问题？
运行时报错为：“实时错误3706，没找到提供程序，该程序可能没正确安装”
Public conn As New ADODB.Connection  
Sub Main() 
　  conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path 　　　　　　　　& "\notedata.mdb;Persist Security Info=False"
     user_logoin.Show         
End Sub

Answer 1

代码应该是：
Public conn As New ADODB.Connection  
Sub Main() 
　  conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path 　　　　　　          & "\notedata.mdb;Persist Security Info=False"
　　conn.open
     user_logoin.Show         
End Sub

Answer 2

引用Microsoft ActiveX Data Object 2.X
    Dim CN   As New ADODB.Connection                
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open
user_logoin.Show         

Answer 3

conn到底是什么connecttion还是字符串
conn.connetStringPublic conn As New ADODB.Connection  
Sub Main() 
　  conn.connetString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path 　　　　　　          & "\notedata.mdb;Persist Security Info=False"
　　conn.open
     user_logoin.Show         
End Sub

Answer 4

conn到底是什么connecttion还是字符串
conn.connetStringPublic conn As New ADODB.Connection  
Sub Main() 
　  conn.connetString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path 　　　　　　          & "\notedata.mdb;Persist Security Info=False"
　　conn.open
     user_logoin.Show         
End Sub

Answer 5

dim conn as new adodb.connection
private sub conn()
  conn.oepn "provider=microsoft.jet.oledb.4.0;data source = " & app.path & "\notedata.mdb;"
end sub