Visual Basic - insertar

Hola y gracias por su atencion, he acudido a ustedes para a ver si me pueden ayudar, miren tengo un codigo que quiero q me haga los siguiente, que me inserte una una tabla de una base de datos elemenosts de dos listas que tengo en un formulario, mire aqui esta el codigo:

Dim db As Database
Dim rs As Recordset
Dim num_informe As Integer
Set db = OpenDatabase(App.Path & "\buscarinformes.mdb") 'nombre de la base de datos *nombrebasedatos*
Set rs = db.OpenRecordset("informes") 'nombre de la tabla es *nombretabla*
For num_informe = 0 To List2.ListCount - 1
rs.AddNew
rs.Fields("nombreinforme") = List1.List(List1.ListIndex) 'el campo es *basededatos*
rs.Fields("nombrebd") = List2.List(num_informe) 'el campo es *informe*
rs.Update
Next num_informe
rs.Close
db.Close

Pero el problema es que me da un fallo en la linea del update y no se porque, me pueden ayudar??
Me dice que que "no puede ser una cadena de longitud cero"
Por favor, me pueen ayudar. Gracias.

ya prbaste dandole un refresh a la bd antes de ??

Si,.