Underlig fejlmeddelelse

Det tyder på at din Data1 ikke er kendt, eller at der ikke er puttet noget i Data1's recordset.

hmm... jeg har ellers prøvet at indsætte noget tekst i min database fra access men den brokker sig stadig.

Check om dine indstillinger er sat korrekt.. database og databasename, mener jeg at det er..

DatabaseName er rigtig nok

hvad med recordset?

RecordsetType er sat til:    0-Table

jeg mente "RecordSource".

Den står også hvor den skal

Hvordan ser koden ud hvor du fylder din data1?

den er ikke fyldt, det er et kalender-program så databasen bliver fyldt efterhånden som man bruger programmet

jeg har kun lavet to records selv i access for at se om det virkede

Hvor du indtaster dine data.. og koden du henter med..
Kan du overhovedet få forbindelse til databasen?

Jamen du er da nødt til at sætte data1.recordsource= et eller andet, eller er jeg helt galt på den?

Jeg ved ikke hvor man tester om der er forbindelse til databasen men her er det kode jeg har skrvet om ddatabasen (en søgefunktion)
og det er den første linie det går galt i

    Data1.Recordset.MoveFirst
    Do While Data1.Recordset.EOF = False
        If Data1.Recordset("Dato") = Date Then
            Exit Sub
        End If
        Data1.Recordset.MoveNext
    Loop

data1.recordsource  er sat til    Kalender
Tabellen i databasen hedder kalender og selve databasen hedder også kalender. Men på dropdownlisten ud for recordsource var der kun vist den ene der.

Er det Visual Basic eller VBA du koder i?

visual basic 6.0

Ok, din data1 er ikke fyldt med noget så, du er nødt til at hente data ind i den, evt i en Form_Load og når du har lagt noget ned i tabellen kan du så lave en Data1.Requery (mener jeg den hedder)

øhhh....??

Hvis du i Form_Load skriver
Data1.RecordSource = "Select * from dintabel"
data1.refresh

Så er data1 ikke tom og du kan lave din søgning.

Det virkede, men jeg fandt ud af at det eneste den skulle var at refreshe
aner ikke hvorfor!?

Det kan være at det er fordi du bruger denne RecordsetType er sat til:    0-Table og når der er lagt data ned så skal der lige refreshes for at data1 får fat i de nye data.

Noget gammelt kode jeg havde liggende, til søgning i en database:

With Data1.Recordset

    strFind = Combo1

    .MoveFirst
    .FindFirst ("Title ='" & strFind & "'")

If (.NoMatch) Then
    MsgBox "No Movies Found !"
    Exit Sub
Else
    LoadDataToTextFields
End If

End With

Jeg plejer at ha' RecordsetType til 1 - Dynaset.

Du kunne også checke om count er større end 0:

Private Sub LoadDataToCombo()
If Data1.Recordset.RecordCount > 0 Then
    Data1.Recordset.MoveFirst
    Do While Data1.Recordset.EOF = False
        Combo1.AddItem Data1.Recordset("Title")
        Data1.Recordset.MoveNext
    Loop
Else
    NoMovies = True
End If
End Sub

Mange tak for hjælpen! (Hvad skulle jeg dog gøre uden eksperten.dk :-)

Jeg takker for point :-)