Hej ALLA!!

Jag ett problem om database..här är koden som jag har problem med. när jag kör programmet så får jag ett fel meddelande

"Run-time error '-2147168242(8004d00e)

Ingen överföring är aktiv."

jag förstår riktigt vad som är felet..

här fastnar jag:
dbkoppling.RollbackTrans 'släpper låsningar om insert har misslyckats

jag märkerar med där jag har problemet((( ))) längst ner så att Ni ska förstå



Private Sub LäggTillDatabasen(Tabell As String)
Dim sql As String

sql = "INSERT INTO person1(fnamn, enamn, adress, postnr, ort, anvid, losen) VALUES('"
sql = sql & Text8.Text & "','"
sql = sql & Text9.Text & "','"
sql = sql & Text10.Text & "','"
sql = sql & Text11.Text & "','"
sql = sql & Text12.Text & "','"
sql = sql & Text13.Text & "','"
sql = sql & Text14.Text & "')"
MsgBox (sql)
On Error GoTo Couldnt_insert 'sätt på felhanteraren
dbkoppling.BeginTrans
dbkoppling.Execute sql
dbkoppling.CommitTrans
On Error GoTo 0 'stäng av felhanteraren

Call VisaKunder

Exit Sub
Couldnt_insert:
(((dbkoppling.RollbackTrans 'släpper låsningar om insert har misslyckats)))
MsgBox ("Kunde inte lägga till post!")
Call VisaKunder
Exit Sub
End Sub


MVH
/Abbe

Testa att ta bort begin och committrans.
/Pelle