Public Function cnn() As ADODB.Connection     
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\db_sss.accdb;persist security info=false;user id=sa;initial catalog=db_SSS"
   
End Function
看一下错误的地方

vb运行时黄线会停留在这一句cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\db_sss.accdb;persist security info=false;user id=sa;initial catalog=db_SSS
显示实时错误-2147217887多不oledb操作产生错误