DATA ENVIRONMENT

bengaba81
13 de Mayo del 2004
Quiero hacer una vcerificacion para ver si la base de datos esta llena o vacia, y siempre me entra por la primera condiccion.

Public Sub NomImagen()
Dim varano
Dim rsaux1 As ADODB.Recordset
varano = Mid(Date, 9, 2)
'Set rsaux1 = de1.rsimagenes.Clone
Set rsaux1 = de1.conex.Execute("SELECT MAX (NombreImagen) FROM Imagenes")
'MsgBox rsaux1.Fields(0).Value
If rsaux1.Fields(0) = Null Then
de1.rsimagenes.Fields(1) = varano & "0001"
Else
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If
End Sub
Un saludo y gracias