多步OLEDB操作产生的错误

Question

当我尝试连接到sql数据库时，它给了我以下错误 多步OLEDB操作产生的错误 我的代码是

Public Sub connect(sql As String)
    Security Info=False"
    con.Open "Provider=Microsoft.SQLSERVER.CE.OLEDB.4.0;Data Source=" & App.Path & " \HMS.sdf;"
    If rs.State Then rs.Close
    rs.Open sql, con, adOpenKeyset
End Sub