command.CommandType = adCmdText
command.CommandText = "Select foto from utilizadores where [utilizador] = '" & List1.List(List1.ListIndex) & "' ;"
Set rs = command.Execute

If rs.Fields("foto").Value <> "" Then -------------------> problema
Image1.Picture = LoadPicture(rs.Fields("foto"))
'Else
' Image1.Picture = ""
End If

pessoal preciso comparar no vb6 o campo da foto da db , a ver se esta vazio ou não , e ele com as "" da erro missmatch , tenho o campo na db defenido como ole

agradeço , abraços a todos