[VB-6] Problema con databse e variabili

[Meldon]

Ciao ha tutti ho un problema. In un programma devo fare in modo che si salvino delle informazioni in un database acquisite tramite inputbox. Vi posto il codice:

Dim Data As Date
Dim motivo As String
Dim entrata As Single
Dim Date1 As DataBinding
Dim motivo1 As DataBinding
Dim entrata1 As DataBinding
Do Until Data <> "" Or motivo <> "" Or entrata <> ""
Data = InputBox("Inserisci la data dell'entrata", "Aggiungi un entrata", Date)
motivo = InputBox("Inserisci il motivo dell'entrata", "Aggiungi motivo entrata")
entrata = InputBox("Inserisci l'entrata", "Aggiungi entrata")
If Data = "" Or motivo = "" Or entrata = "" Then
MsgBox "Completare tutti i campi"
End If
Loop
Date1.DataSource = Data1
Date1.DataField = "Data"
motivo1.DataSource = Data1
motivo1.DataField = "motivo"
entrata1.DataSource = Data1
entrata1.DataField = "entrata"
Data1.Recordset.AddNew
Date1 = Data
motivo1 = motivo
entrata1 = entrata
Data1.Recordset.Update

quando faccio girare il programma mi da un errore in "Date1.Datasource = Data1" perchè??

Vi ringrazio in anticipo per l'aiuto, ciao

[GudFella]

Data1 cos'è?

[Meldon]

Data1 è un controllo Data sul form con si collega al mio database e ad una tabella di questo Database.

[Meldon]

up