Duda sentencia en la vista de datos del Dataenvironment

[VHid@lgo]

Código HTML:

DataEnvironment1.rsCommand1.Filter = "ciudad = '" & ReporteGuias.txtciudad.Text & "'"
If DataEnvironment1.rsCommand1.Status = 0 Then
    DataEnvironment1.rsCommand1.Close
    datareport1.Show
    Else
    datareport1.Show
    DataEnvironment1.rsCommand1.Close
End If