me dice referencia no establecida, sabeis por qué
 
  For x = 0 To datfacja.Tables("[MS Access;DATABASE=" & TextRutaActualiza.Text & "].[Cabeturas]").Rows.Count - 1
                buscanfacco = datfac.Tables("Cabeturas").Rows(x).Item("Nctura").  ToString
                buscacodco = datfacja.Tables("Cabeturas").Rows(x).Item("edor").  ToString 
  
 
 

