problemer med sql i VBA

Hej,

Dette spørgsmål er en udspringer fra http://www.eksperten.dk/spm/780584

jeg har forsogt at implementere nedenstaaende kode i min database, men det giver problemer og jeg faar at vide at folgende streng er nul sngForbrug = rst("Vandmaaler")

Det jeg onsker er, at man paa en form som er linket til en tabel (tblForbrug) har folgende felter Vandmaaler, Dato og Forbrug.

efter indtastning af en Dato og vaerdi i feltet Vandmaaler skal koden kore og frataekke vaerdien for Vandmaler, svarende til en dag foer i forhold til datoen, fra den netop indtastende Vandmaaler vaerdi. Dette resultat skal saa afleveres til feltet Forbrug.

haaber virkelig I kan hjaelpe!!!!

Alle naevnte felter optraeder i tabellen

koden er her

Sub Vandmaaler_AfterUpdate()

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim sngForbrug As Single

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

strSQL = "SELECT Vandmaaler FROM tblForbrug WHERE Dato = DateAdd('d', -1, tblForbrug.Dato) ORDER BY tblForbrug.Dato DESC;"
'Debug.Print strSQL
rst.Open strSQL, conn
    sngForbrug = rst("Vandmaaler")
rst.Close
Set rst = Nothing

'''strSQL = "INSERT INTO tblForbrug ( Vandmaaler, AflaesningsDato ) Values "
'''strSQL = strSQL & "(" & Me.txtForbrug & "," & Date & ")"
'Debug.Print strSQL
conn.Execute strSQL

conn.Close
Set conn = Nothing

MsgBox "Du har brugt: " & Me.Vandmaaler - sngForbrug

End Sub