consulta y actualizar una listbox

monica
11 de Noviembre del 2004
Hola tengo esta consulta
sQuery = "select idalmacen, nombrealma, ubicacion, baja from almacen where baja = '0'"
mi campo bajaa lo tengo como tipo de datos bit quiero que me muestre en mi bd sql valor 0 si esta apagado y el valor 1 si esta prendido.
Por otra parte tengo un listbox que quiero actualizar cada vez que agregue un nuevo registro y modifique alguno existente no se como realizarlo tengo este codigo
Public Sub LlenaLista()
Dim sDatos As String
Dim Cadena As String
List1.Text = ""
With abrirres
If Not .EOF Then
Do While Not .EOF
sDatos = .Fields("NOMBREALMA").Value
sdatos1 = .Fields("ubicacion").Value
Cadena = sDatos & " " & sdatos1
List1.AddItem Cadena

.MoveNext
Loop
.MoveFirst
Else
End If
End With
End Sub
la lista se llena al abrir mi forma
Gracias por cualquier ayuda