Access y Visual Basic

[Bravenap]

Bien, buscando y buscando he encontrado lo que estaba buscando, es esto:

Código:

Private Sub TextDNI_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then
    identifica = TextDNI.Text
        Set rstUsuarios = db.OpenRecordset("Usuarios")
        rstUsuarios.MoveFirst
        Do While Not rstUsuarios.EOF
            If rstUsuarios!DNI <> identifica Then
                rstUsuarios.MoveNext
                UsuarioNuevo.Show 1 
            Else
                Define(2).Caption = rstUsuarios!nombre + " " + rstUsuarios!apellidos + ". Tel: " + rstUsuarios!telefono
                ButConfirm.SetFocus
        Exit Do
        End If
        Loop
    End If
End Sub

Me funciona bien excepto que no sé si lo que está en rojo es el sitio adecuado, es decir, mi intención es que si no encuentra ninguna entrada que coincida con el valor buscado abra un nuevo form.

Gracias de nuevo.