Errore Run 94 Campo Null - VB

[ade_v]

anche così si blocca e sempre sulla stessa riga (ti ho messo il più) dandomi sempre lo stesso errore

Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim sql As String
Lblmat.Visible = False
Txtmateriale.Visible = False

Set db = OpenDatabase("D:\allied\inventario2.mdb")
sql = "select Ubicazione from Inventario order by Ubicazione"
Set rs = db.OpenRecordset(sql)
Do Until rs.EOF
++ If IsNull(rs.Ubicazione) Or Trim(rs.Ubicazione) = "" Then
cmbubi.AddItem (" ")
'Oppure MiaCombo.AddItem("-VUOTO-")
Else
cmbubi.AddItem (rs.Ubicazione)
End If
rs.MoveNext
Loop
rs.Close

End Sub

Ho inserito come riferimento DAO perchè Ado lo conosco solo di nome!!

[darkblOOd]

ehm...mi sorge un dubbio

al posto del puntino di Rs.Ubicazione metti il punto esclamativo e fammi sapere....

[ade_v]

Evvai!!!!!!!!!! Funziona!!!!!!!!!!!!!!!!!!!

Grazie mille
Ade_v

[darkblOOd]

figurati, scusami se mi ero confuso con la "punteggiatura"