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