Dim datasetLprincipal As New DataSet
Dim dataadapterLprincipal As New OleDbDataAdapter
seleccionstringLprincipal = "Select IdInmueble, DirecciónInmueble, Situación1, Eliminado, NúmeroExpediente, Precio1Euros, Precio1Pts From DAT_Inmueble Where DirecciónInmueble IS NOT NULL " & "And Situación1 IS NOT NULL " & "And Eliminado = 0 " & "And IdTipoInmueble = @tipoinmueble " & "And IdTipoOperación = 4"
datasetLprincipal = New OleDbDataAdapter( seleccionstringLprincipal, conexionLprincipal)
datasetLprincipal.SelectCommand.Parameters.Add( "@tipoinmueble", lblrespuesta.Text )
dataadapterLprincipal = New DataSet
datasetLprincipal.Fill( dataadapterLprincipal, "dtspisos" )