Visual Basic - No veo el error por ningún sitio

Dim MiSql As String

MiSql = "SELECT Facturas.* FROM Facturas WHERE Facturas.Epigr LIKE '*312A01*' AND Facturas.Epigr LIKE '*12/*';"

Me.nResultado = DSum("[FacImport]", "Facturas", MiSql)

MiSql = "SELECT Facturas.* FROM Facturas WHERE Facturas.Epigr LIKE '*312A01*' AND Facturas.Epigr LIKE '*12/*'"

MiSql = "SELECT * FROM Facturas WHERE Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"

MiSql = "SELECT * FROM Facturas WHERE Epigr LIKE '%312A01%' AND Epigr LIKE '%12/%'"

MiSql = "SELECT * FROM Facturas WHERE Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"

MiSql = "SELECT Facturas.* FROM Facturas WHERE Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"

SELECT Facturas.*

FROM Facturas

WHERE Facturas.Epigr LIKE '*312A01*' AND Facturas.Epigr LIKE '*12/*';

Me.nResultado = DSum("[FacImport]", "Facturas", MiSql)

Dim txtFiltro As String

txtFiltro = "Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"

Me.nResultado = DSum("[FacImport]", "Facturas", txtFiltro)