invalid use of null

Det sker hvis der ikke er nogen værdi i addy-feltet.

Brug enten:

Public Sub loadfromdb()
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\addys.mdb"
sql = "SELECT * FROM addys WHERE addy is not null"
Set rs = Conn.Execute(sql)
While Not rs.EOF
snot = rs("addy")
lstRcp.AddItem snot
Wend
Conn.Close
End Sub

Eller

Public Sub loadfromdb()
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\addys.mdb"
sql = "SELECT * FROM addys"
Set rs = Conn.Execute(sql)
While Not rs.EOF
if not isnull(rs("addy").Value) then
  snot = rs("addy")
  lstRcp.AddItem snot
end if
Wend
Conn.Close
End Sub

Det var vel egenligt et svar.
Håber jeg.

hmm den første der siger den stadig den null fejl
og den anden der hænger programmet bare

Hmm - det er ellers metoder jeg selv bruger.

Ahhh - der mangler jo en rs.MoveNext. Også i din kode. Så det er nok derfor den "hænger". Den bliver jo aldrig færdig.

Den skal ind lige før wend.

Public Sub loadfromdb()
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\addys.mdb"
sql = "SELECT * FROM addys"
Set rs = Conn.Execute(sql)
While Not rs.EOF
if not isnull(rs("addy").Value) then
  snot = rs("addy")
  lstRcp.AddItem snot
end if
rs.MoveNext
Wend
Conn.Close
End Sub

Ellers, prøv det gode gamle hack.

Public Sub loadfromdb()
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\addys.mdb"
sql = "SELECT * FROM addys"
Set rs = Conn.Execute(sql)
While Not rs.EOF
  snot="" & rs("addy")
  if snot<>"" then
    lstRcp.AddItem snot
  end if
  rs.MoveNext
Wend
Conn.Close
End Sub

ah ja
doh hehe
takker ! :)