add a empty database a record

[cusmar]

the problem is when the database is empty i cant add a new record what do i wrong

Dim dbsklantgegevens As Database 'defineer de database
Dim recklantgegevens As Recordset 'defineer de recordset
Dim sqlklantgegevens As String
 
sqlklantgegevens = " select * from klantnummer " 'defineer de sqlquery: defineer de zoekcriteria
 
Set dbsklantgegevens = OpenDatabase("c:\klantgegevens.mdb") 'Defineer waar de database staat
Set recklantgegevens = dbsklantgegevens.OpenRecordset(sqlklantgegevens) 'defineer de recordset met de database en de sqlquery
 
If Not recklantgegevens.EOF Then
    If recklantgegevens.RecordCount = 0 Then
    End If
End If
If IsNumeric(txttelefoonnummer.Text) Then
    temp = MsgBox("Je hebt een letters in je telefoonnummer vak ingevoerd", vbCritical, "Letter")
Else
    If IsNumeric(txtptelefoonnummer.Text) Then
        temp = MsgBox("Je hebt een letters in je telefoonnummer vak ingevoerd", vbCritical, "Letter")
    Else
        If txtbedrijf.Text = "" Then
            temp = MsgBox("U heeft een van de velden niet ingevuld", vbCritical, "Mist data")
        Else
            If Not recklantgegevens.EOF Then
                recklantgegevens.AddNew 'nieuw record
                recklantgegevens.Fields("naam") = txtbedrijf.Text
                recklantgegevens.Fields("adres") = txtadres.Text
                recklantgegevens.Fields("postcode") = txtpostcode.Text
                recklantgegevens.Fields("woonplaats") = txtWoonplaats.Text
                recklantgegevens.Fields("contactpersoon") = txtcontactpersoon.Text
                recklantgegevens.Fields("telefoonnummer") = txttelefoonnummer.Text
                recklantgegevens.Fields("projectid") = txtid.Text
                recklantgegevens.Fields("padres") = txtAdres2.Text
                recklantgegevens.Fields("ppostcode") = txtPostcode2.Text
                recklantgegevens.Fields("pWoonplaats") = txtWoonplaats2.Text
                recklantgegevens.Fields("ptelefoonnummer") = txtptelefoonnummer.Text
                recklantgegevens.Fields("faxnummer") = txtFax.Text
                recklantgegevens.Fields("mobiel") = txtmobiel.Text
                recklantgegevens.Fields("emailadres") = txtEmailadres.Text
                recklantgegevens.Fields("Projectnaam") = txtProjectnaam.Text
                recklantgegevens.Fields("Projectinfo") = txtProjectInfo.Text
                temp = MsgBox("Weet je het zeker", vbYesNo, "weet je het zeker")
                    If temp = vbYes Then
                        recklantgegevens.Update 'schrijf de gegevens naar database
                        temp = MsgBox("Je hebt het record toegevoegd aan de database", vbOKOnly, "Toegevoegd")
                    End If
                    txtbedrijf.Text = ""
                    txtadres.Text = ""
                    txtpostcode.Text = ""
                    txtWoonplaats.Text = ""
                    txtcontactpersoon.Text = ""
                    txtid.Text = ""
                    txttelefoonnnummer = ""
                        If Not recklantgegevens.EOF Then
                        recklantgegevens.MoveLast
                        tnummer = recklantgegevens.Fields("projectid")
                        tnummer = tnummer + 1
                        txtid.Text = tnummer
                        End If
                    End If
                    chkidhandmatig.Value = False
                End If
End If