Visual Basic - AYUDA URGENTE

que es lo que esta mal en estas lineas? necesito ayuda urgente:
alguien me podria ayudar?. Gracias

Set rs1 = New ADODB.Recordset
rs1.Open "INSERT INTO facturas (nfactura, fecha, buque, consignatario, rfc, domicilio) VALUES (""'" & F_N_Factura.Text & "'", "'" & F_N_Fecha.Text & "'", "'" & F_N_Buque.Text & "'", "'" & F_N_Consignatario.Text & "'", "'" & F_N_RFC.Text & "'", "'" & F_N_Domicilio.Text & "'"")", Base
rs1.Close

SUPONGO QUE NFACTURA ES UN CAMPO NUMERICO ASI QUE SUGIERO QUE USES LA FUNCION VAL PARA ASIGNAR EL VALOR AL CAMPO, Y USES DATEVALUE PARA VALIDAD LA FECHA QUE ESTAS INGRESANDO SI TU CAMPO FECHA ES DE ESE TIPO

Set rs1 = New ADODB.Recordset
rs1.Open "INSERT INTO facturas (nfactura, fecha, buque, consignatario, rfc, domicilio) VALUES ("" VAL( " & F_N_Factura.Text & ") ", " DATEVALUE(' " & F_N_Fecha.Text & "')", "'" & F_N_Buque.Text & "'", "'" & F_N_Consignatario.Text & "'", "'" & F_N_RFC.Text & "'", "'" & F_N_Domicilio.Text & "'"")", Base
rs1.Close

ASI DEBERIA SER, ESPERO TE SIRVA