Visual Basic - Checkear DB

Buenas, les explico mi problema. Tengo un form que se llama entradas, en este guardo las entradas de productos. Ok, Tengo un sistema de Codigo de entrada, diferente al codigo de producto. Este esta indexado y el de productos no. Ok, el problema viene cuando no hay registros (por consiguiente no logra encontrar el ultimo codDeEntrada y falla, eso es lo que prescisamente necesito, que primero verifique la DB y si no hai registro que ponga 1 como default. Gracias, aqui el codigo

'aqui el codigo
Data1.Recordset.AddNew
Data2.RecordSource = "select max(CODENTRADA) as codentradas from entradas"
Data2.Refresh
'aqui viene el problema
Text1 = Data2.Recordset!codentradas + 1
End If
Text2.Text = Format(Now, "dd/mm/yyyy")
Text3.SetFocus
Text4 = ""
Text5 = ""
Text6 = ""

if Data2.Recordset.Recordcount=0 then
text1=1
else
Data2.RecordSource = "select max(CODENTRADA) as codentradas from entradas"
Data2.Refresh
Text1 = Data2.Recordset!codentradas + 1
endif