Visual Basic.NET - Problemas al grabar

Hola a todos. Tengo el siguiente problema...
Estoy haciendo un servicio Web que me permita conectar el cliente con un servidor y esos datos además trabajarlos en multicapas...Pero cuando hago el grabar no lo hace y me lanza un error, en realidad se salta una sentencia que cuando no tenía incorporado el servicio funcionaba sin problemas....
El servicio web invoca a la dll capa_negocio
***servicio web***
<WebMethod()> Public Function grabar(ByVal nom As String, ByVal ape As String, ByVal rut As String, ByVal fono As Integer, ByVal dir As String) As String
Dim negocio As New Negocio() 'clase proveniente de la dll negocio
Dim mensaje As String
negocio.nom = nom
negocio.ape = ape
negocio.n_rut = rut
negocio.fono = fono
negocio.dir = dir
Try
negocio.validar_rut(negocio.n_rut, negocio.nom, negocio.ape, negocio.fono, negocio.dir)
mensaje = "Datos Grabados"
Catch
mensaje = Err.Description & Err.HelpFile
End Try
Return mensaje
End Function

***Fragmento de Capa Negocio*** en ella se invoca a la Capa_datos
If Digito <> Str_AuxDig Then
'MsgBox("Rut Incorrecto", MsgBoxStyle.Information, "Validación del Rut")
Exit Sub
Else
c_datos.nom = Me.nom
c_datos.ape = Me.ape
c_datos.n_rut = Me.n_rut
c_datos.fono = Me.fono
c_datos.dir = Me.dir
c_datos.agregar(c_datos.nom, c_datos.ape, c_datos.n_rut, c_datos.fono, c_datos.dir)
End If

***Capa_Datos***
Public Sub agregar(ByVal nom As String, ByVal ape As String, ByVal n_rut As String, ByVal fono As Integer, ByVal dir As String)
Dim conectar As OleDbConnection
conectar = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Prueba.mdb")
Try
Dim insertar As String = "insert into tabla1(nombres, apellidos, rut, fono1, direccion) values" & _
"('" & nom & "','" & ape & "','" & n_rut & "','" & fono & "','" & dir & "')"
Dim consulta As New OleDbCommand(insertar, conectar)
consulta.Connection.Open()
consulta.ExecuteNonQuery() ' *******esta es la intruccion que no se ejecuta, pero cuando la realizaba sin un servicio web funcionaba de maravillas
conectar.Close()
Catch
'nada
End Try
End Sub

He visto que tienes un MessageBox en la capa de negocios...
Nunca coloques mensajes en la capa de negocios, todos estos deberian ser retornados como status a la capa GUI donde deberian ser mostrados...

Hola Yamil, el msgbox está en comentarios, por lo tanto no se ejecuta...
Lo otro que puedo hacer con respecto al salto de la instrucción de consulta.ExcecuteNonquery().
Gracias..

Entonces el problema esta en la instruccion INSERT en la capa de datos.
Manda a sacar por un archivo plano o el log para ver que valor tiene la variable "insertar".