Problemas con el UPDATE

No actualiza el registro.

¡¡¡¿Por qué estoy con problemas de principiente?!!! Se supone que tengo años con el VB 6.0

Esta es la continuación con los problemas que tuve con INSERT INTO. ¿Serà que sigo teniendo problemas con las fechas a pesar que estoy usando parámetros? Los valores de estos son:

txtDianac.text=18, txtMesNac.text=Ene, txtAnoNac.tex=1985

dteGFecNac = CDate(txtDiaNac.Text & "/" & txtMesNac.Text & "/" & txtAnoNac.Text)

Las instrucciones para actualizar son las siguientes:

strSqlProc = "UPDATE MaeSociosH SET nombres = @nombres, apells = @apells, lugnac = @lugarnac, sexo = @sexo, esnacional = @esnacional, paisnac = @paisnac, cedula = @cedula, direccion = @direccion, correoe = @correoe  WHERE csocio= @Llave"
       
MyData.NewDatabaseCommand( strSqlProc, CType(txtCSocio.Text, Long), txtNombres.Text, txtApells.Text, txtLugarNac.Text, dteGFecNac, chrSexo, chkNacional.Checked, txtPaisNac.Text, txtCedula.Text, txtDireccion.Text, txtCorreoe.Text)

...

Public Sub NewDatabaseCommand( ByVal CommandString As String, ByVal LaLlave As Long, ByVal LosNombres As String, ByVal LosApells As String, ByVal ElLugarNac As String, ByVal LaFechaNac As Date, ByVal ElSexo As String, ByVal ElEsNacional As Boolean, ByVal ElPaisNac As String, ByVal LaCedula As String, ByVal LaDireccion As String, ByVal ElCorreoE As String)
      
        Try
            Dim objInsert As New OleDbCommand

            objInsert.CommandText = CommandString
            objInsert.Connection = objConnection
            objInsert.Connection.Open()

            objInsert.Parameters.AddWithValue("@Llave", LaLlave)
            objInsert.Parameters.AddWithValue("@nombres", LosNombres)
            objInsert.Parameters.AddWithValue("@apells", LosApells)
            objInsert.Parameters.AddWithValue("@lugarnac", ElLugarNac)
            objInsert.Parameters.AddWithValue("@fecnac", LaFechaNac)
            objInsert.Parameters.AddWithValue("@sexo", ElSexo)
            objInsert.Parameters.AddWithValue("@esnacional", ElEsNacional)
            objInsert.Parameters.AddWithValue("@paisnac", ElPaisNac)
            objInsert.Parameters.AddWithValue("@cedula", LaCedula)
            objInsert.Parameters.AddWithValue("@direccion", LaDireccion)
            objInsert.Parameters.AddWithValue("@correoe", ElCorreoE)

            objInsert.ExecuteNonQuery()

           
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
           
        End Try
        objConnection.Close()

    End Sub

Pero como dije desde el principio, NO ACTUALIZA EL REGISTRO y no hay ningun mensaje de error. ¿Donde está mi error?

Gracias por la ayuda.