Как мне исправить эту ошибку, которую я получаю. "Время выполнения 3709"

---

Button Code:

Private Sub cmdnew_Click()
no
clear
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs.Open "tbltrans", con, adOpenDynamic, adLockPessimistic 'This is the line where I get the error.

rs.AddNew

rs!transid = txttransid.Text

rs.Update
lbltotal.Caption = 0
txtitemcode.SetFocus
txtpaid.Text = ""
txtchange.Text = ""
cmdadd.Enabled = True
cmdnew.Enabled = False
cmddelete.Enabled = True
cmdedit.Enabled = True
cmdcompute.Enabled = True
End Sub

Module Code: 

Global con As New ADODB.Connection
Sub main()
On Error GoTo err
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos.mdb;Persist Security Info=False;Jet OLEDB:Database"
frmmain.Show
Exit Sub
err:
MsgBox ("Could not find database")
End Sub

Что я уже пробовал:

Когда я удалил frmLogin , frmSplash и frmMenu ошибка исчезла, и я могу успешно начать новую транзакцию.

---