Opretter to raekker istedet for bare en

Hej

Jeg har nedenstaaende kode til at tilfoeje noget til min tabel, Men min kode tilfoejer to raekker istedet for en.

Det gaar meget godt indtil den kommer ned til
  tblRst.Fields("Invoice Date") = Me.txtInvoiceDate.Value
saa smider den den i en ny raekke, og derefter forsaetter den i den gamle raekke med
  tblRst.Fields("Consultant") = Me.cboConsultant.Value
  tblRst.Fields("Owner") = Me.cboOwner.Value
Og naar den kommer til
  tblRst.Fields("Month") = dbMonth
Saa forsaetter den i raekke 2

Er der nogen som har en ide hvad jeg goer forkert, der er helt sikkert noget galt.

Kode:

Dim intMonth As Integer
Dim intYear As Integer
Dim dateSelDate As Date
Dim tblRst As Recordset
Dim dbMonth As String
Dim errormsg As Boolean

Set tblRst = Form.Recordset

If Me.OpenArgs() = "NEW" Then
    tblRst.AddNew
Else
    tblRst.Edit
End If

If IsNull(Me.txtInvoiceDate.Value) = False Then

dateSelDate = Me.txtInvoiceDate

Debug.Print dateSelDate

intMonth = Format(dateSelDate, "mm")
intYear = Format(dateSelDate, "yyyy")

dbMonth = CStr(intMonth) & "-" & CStr(intYear)

If Len(dbMonth) = 6 Then
    dbMonth = "0" & dbMonth
End If

  tblRst.Fields("Project Name") = Me.cboProjectName.Value
  tblRst.Fields("Project Price") = Me.txtProjectPrice.Value
  tblRst.Fields("Invoice Date") = Me.txtInvoiceDate.Value
  tblRst.Fields("Consultant") = Me.cboConsultant.Value
  tblRst.Fields("Owner") = Me.cboOwner.Value
  tblRst.Fields("Month") = dbMonth
  tblRst.Update

End If
DoCmd.Close acForm, "FRM-ProjectBilling", acSaveNo