Visual Basic - vbasic/sql

hola,tngo un problema, m dice k tngo un valor null cuando deberia tener algun valor, supongo q no le doy el valor korrecto...os dejo esto:

Private Sub carga_empreses()
Dim csql As String
Dim rste As ADODB.Recordset
csql = "select nom_empresa,codigo_empresa from empresa where activo=1 order by nom_empresa"
Set rste = cn.Execute(csql)
While Not rste.EOF
cmb_empresa.AddItem rste!nom_empresa
cmb_codi_emp.AddItem rste!codigo_empresa
rste.MoveNext
Wend
End Sub

cmb_empresa.AddItem rste!nom_empresa

esta es la linea dnd m da el error.
Gracias

Ponle antes del bucle un On Error Resume next
A ver si así se traga el campo null

tabien puedes filtrar los null con la función isnull

ejemplo

if isnull(tabla!campo)=false then ....

esta es una buena forma

muchisimas gracias tios ;)