Sql 奇怪的ODBC错误

我将Access前端用于Microsoft SQL后端

我面临的问题是，我正在使用adodb连接插入数据。我在多个表单上使用它。第一种形式有效，第二种形式有效，第三种形式也有效。但是在第四个表单中，我得到了一个错误：“ODBC:callfailed”

你可能认为我犯了某种打字错误，但这不是问题所在。当我从表格四开始时，我可以插入数据。 长话短说，在不同形式上插入3次之后，我得到了odbc错误。我不知道是什么问题

 Dim Query As String

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

Query = "SELECT MAX(ID) From dbo_Controle"
rs.Open Query, CurrentProject.Connection
rs.MoveFirst
ID = rs.Fields(0).Value
Query = "INSERT INTO dbo_Controle VALUES (" & ID + 1 & ",'" & Me.txtControleTime & "')"
Set cn = CurrentProject.Connection
Debug.Print (Query)
cn.Execute Query

rs.Close
cn.Close
Set rs = Nothing
Set db = Nothing

---

这是我在不同表单上使用的代码，用于不同的查询

我也遇到了同样的问题，并且能够通过使用CurrentProject.AccessConnection解决它