Visual Basic.NET - Error de sintaxis en procedimiento almacenado MySql

Try

    FnConectado()

    cmd = New MySqlCommand("ingresar_personas")

    cmd.CommandText = CommandType.StoredProcedure

    cmd.Connection = cnn

    cmd.Parameters.AddWithValue("_Nombre", dts.gnombre)

    cmd.Parameters.AddWithValue("_Apellido", dts.gapellido)

    cmd.Parameters.AddWithValue("_Direccion", dts.gdireccion)

    cmd.Parameters.AddWithValue("_Telefono", dts.gtelefono)

    If cmd.ExecuteNonQuery = False Then

        Return True

    Else

        Return False

    End If

Catch ex As Exception

    MsgBox(ex.Message)

    Return False

Finally

    FnDesconectado()

End Try

cmd.CommandText = CommandType.StoredProcedure

cmd.CommandType=CommandType.StoredProcedure

Dim Correcto=Cmd.ExecuteNonQuery()

if Correcto=0 then

   Messagebox.Show("Ningun registro Afectado")

End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim conn As New MySqlConnection

    Dim Param As MySqlParameter

    Dim cmd As MySqlCommand

    conn.ConnectionString = "SERVER=127.0.0.1;UID='root';DATABASE=" & "MiPersonas" & ";Password=''"

    conn.Open()

    cmd = conn.CreateCommand()

    cmd.CommandType = CommandType.StoredProcedure

    cmd.CommandText = "InsertUnaPersona"

    Param = New MySqlParameter("_Nombre", MySqlDbType.VarChar)

    Param.Direction = ParameterDirection.Input

    Param.Value = "Macron"

    cmd.Parameters.Add(Param)

    Param = New MySqlParameter("_Apellido", MySqlDbType.VarChar)

    Param.Direction = ParameterDirection.Input

    Param.Value = "Emanuel"

    cmd.Parameters.Add(Param)

    Param = New MySqlParameter("_Direccion", MySqlDbType.VarChar)

    Param.Direction = ParameterDirection.Input

    Param.Value = "em@elysee.fr"

    cmd.Parameters.Add(Param)

    Param = New MySqlParameter("_Telefono", MySqlDbType.VarChar)

    Param.Direction = ParameterDirection.Input

    Param.Value = "951159"

    cmd.Parameters.Add(Param)

    MessageBox.Show(cmd.ExecuteNonQuery())

    conn.Close()

    conn.Dispose()

End Sub